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CHAPTER 1 
INTRODUCTION 

FOCAL is a service program for the PDP-8 family of computers, designed to help scientists, 
engineers, and students solve numerical problems. 

The FOCAL language is used as a tool in a conversational mode; that is, the user creates 
his problem step by step, while sitting at the computer; when the steps of the problem have been 
completed, they can be executed and the results checked. Steps can be quickly changed, added or 
deleted. 

One great advantage of a computer is that once a problem has been formulated, the machine 
can be made to repeat the same steps in the calculation over and over again. Until now, the job of 
generating the program was costly, time-consuming, and generally required the talents of a specialist 
called a programmer. For many modest jobs of computation, a person unfamiliar with computers and 
programming would use a desk calculator or slide rule to avoid the delays, expense, and bothersome 
detail of setting up his problem so that the programmer could understand it. 

FOCAL circumvents these difficulties by providing a set of simplified techniques that permit 
the user to communicate directly with the computer. The user has the advantages of the computer put 
at his disposal without the requirement that he master the intricacies of machine language programming, 
since the FOCAL language consists of imperative English statements in standard mathematical notation. 

FOCAL is flexible; commands may be abbreviated, and some may be concatenated within 
the same line. Each input string or line containing one or more commands is terminated by a carriage 
return . 

A great deal of power has also been put into the editing properties of the command language. 
Normally, deletions, replacements, and insertions are taken care of by the line number which indicates 
the replacement or repositioning of lines. If single characters are to be changed within a FOCAL com- 
mand line, it is not necessary to retype the entire string. The changes may be executed by using the 
MODIFY command. Thus, complex command strings may be modified quite easily. 

In operation, the program indicates that it is ready to receive input by typing an asterisk. 

On-line command/input may be either direct (to be executed immediately) or indirect (to be stored 

and executed later) commands. An example of a direct command is 

*TYPE 5*5*5,1 (User) 
= 125.000* (PDP-8) 

The final asterisk indicates that FOCAL is ready for its next command. All commands may be given in 
immediate mode (see Appendix A). 
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Text input requires that a numerical digit, in the form ab.cd and within a range of 1 .01 to 
31 .99, follow the * . The number to the left of the period is called the group number. The nonzero 
number to the right is called the specific line or step number. While keying in command/input strings, 
the rubout key and the left arrow may be used to delete single characters or to kill the entire line, 

respectively . 

Since the command decoder is table driven, FOCAL can be modified by a small binary tape 
to understand foreign languages commands. (See Appendix F-2) 

FOCAL is written especially for the educational and engineering markets and is intended to 
be used as a problem solving tool . It gives quick and concise reinforcement, minimizes turnaround 
time, and provides an unambiguous printed record. 

FOCAL is also an extremely flexible, high accuracy, high resolution, general -purpose desk 
calculator and demonstration program. 

This document describes the language, operating procedures for Disk Monitor and FOCAL; 
use of High Speed reader; addition of user function FNEW; and many other details of interest. Symbol 
tables, lists, and flow-charts are included. 

There are also descriptions of the 10-digit overlay, 4 user overlay, and the complete 
graphics function . 
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CHAPTER 2 
COMMANDS 

2.1 TYPE, ASK 

The TYPE and the ASK statements are used for output and input of literals, alphanumeric 
calculations, and formats. The simplest form of the TYPE statement is a command (e.g. , TYPE A*l .4). 
This will cause the program to type =, evaluate the expression, and type out the result. Several 
expressions of this kind may be typed from the same statement if the expressions are each ended by 
commas . 

The ASK statement is similar to the TYPE statement in form, but only single variable names 
can be used instead of expressions, and the user types in the values. 

2.1.1 Literals 

For output of literals, the user may enclose characters in quotation marks. The carriage 
return will automatically generate closing quotation marks. The bell may only be inserted during 
initial input, not via the MODIFY command. 

2.1.2 Numerical Input Formats 

Keyboard responses to ASK inputs may 

a. have leading spaces 

b. be preceded by + or - sign if desired or required 

c. be in any fixed point or floating point format 

d. be terminated by any terminating character, carriage return, or ALTMODE. It is 
recommanded, however, that the space be adopted as the conventional and general purpose input 
terminator. The ALTMODE is a special nonprinting terminator that may be used to synchronize the 
program with external events. For example, to insert special paper in the teletype before executing 
the program, type Ask A; GO and RETURN, then load the paper, and hit ALTMODE. The value of 
the variable used remains unchanged . 

2.1.3 Alphanumeric Input Formats 

Input data that is in response to an ASK command may take any format, may be signed or 
unsigned, and must be terminated by a legitimate terminating character (space, CR, comma, /, etc.). 
This means that alphabetic input may also be accepted by an ASK input command (see 3.4.9). This is 
done by a simple hash-coding technique so that the program can recognize keyboard responses by a 
single comparison. See example under the IF command for an illustration of how to program the 
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recognition of the user reply "WAIT". This is possible because the leading zero causes a character 
string to be interpreted as a number, (e.g., 

*TYPE OANSWER = 0.261 30E+22*). 
Any literal word containing the letter "E" twice in one input will cause the ASK statement to be 
terminated as the program interprets this letter as an exponent. 

2.1.4 Special Characters 

The exclamation point (!), percent (%), dollar sign ($), and the number sign ( # ) may be 
used next to quotation marks or by themselves. They cannot be used to terminate alphanumeric 
expressions. They may be used in either TYPE or ASK commands. 

The TYPE statement precedes its numerical typeouts with an equal sign (-) before beginning 
the output conversation process. The ASK statement types a colon (:) when it is ready to receive key- 
board data . 

To type an expression before its results, the user may enclose the expression in question 

marks. This is a special use of the trace feature. 

*TYPE ?A*5.2? 
A*5. 2-1-10.40 



2.1.5 Print Positions 

Carriage returns are not automatically supplied at the termination of a typeout. To supply 
carriage returns within a TYPE or ASK statement, the exclamation mark (!) is used. This is similar to 
the use of the slash in FORTRAN format statements. 

Occasionally, it is desirable to return the carriage and type out again on the same line 
without giving a line feed. A number sign (&) returns the print mechanism to the left hand margin but 
does not feed the paper forward. This feature may be used to plot another variable along the same 
coordinate. 

2.1.6 Symbol Table 

TYPE $ (dollar sign) causes the contents of the symbol table to be typed out with the current 
values of all variables created. The symbol table is typed with subscripts and values in chronological 
order. The routine then returns as though a carriage return had been encountered in the TYPE state- 
ment, thereby terminating the TYPE command. Both the TYPE and the ASK statements may be followed 
by a semicolon (;) and other commands, unless a $ is in the string. 
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2.1.7 Output Formats 

The output format may be changed within a TYPE statement by %X.YY, where X and YY are 
positive integers less than 31 . X is equal to the total number of digits to be output and YY is equal 
to the number of digits to the right of the decimal point. 

During output, leading zeroes are typed as spaces. If the number is larger than the field 
width indicates, FOCAL will convert to E format. E format is also specified by % alone. (Floating- 
point decimal: ±O.XXXXXXXE±Y, where E means "10 to the Yth power".) The current output format 
is retained until explicitly changed. If a number is too large for the current format, the E format is 
used temporarily. 

2.1.8 Terminators 

In the ASK statement, arguments are scanned by the GETARG Recursive Routine and may 
therefore be terminated by any legitimate terminating character (e.g., space, comma, *, etc.). In 
the TYPE statement, arguments are scanned by the EVAL Recursive Routine and must therefore be ter- 
minated by comma, semicolon, or carriage return. In either the TYPE or ASK statement, command 
arguments may be preceded by format control characters * ! ". Example: 

*ASK?A B C ? 
A :5, B :6 C :7; * 

All commands except WRITE, RETURN, MODIFY, QUIT and ERASE may be combined on the same line 
if separated by a semicolon. 

2.1.9 Off-Line Data Tapes (c.f., Section 4.5.3) 

To prepare data tapes off-line, type the data word, the terminating space, and the "here-Is" 
key. Use backspace and rubout to remove characters off-line. 

2.1.10 Corrections 

For editing input to an ASK command before the input has been terminated, the left arrow 
(■*-) is used. 

2.1.11 Roundoff 

Numbers to be typed out are rounded-off to the last significant digit to be printed (i .e. , 
the rightmost digit of the requested format) or to the sixth significant digit, whichever is smaller. 
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2.2 DO 

The DO command is used chiefly to form subroutines from single lines, groups of lines, or 
from the entire text buffer. Thus, the instruction DO 3.3 makes a subroutine of line 3.3. For a single 
line subroutine, control will be returned when the end of the line is encountered or when the line is 
otherwise terminated (e.g., by a RETURN statement, or in the case of TYPE, with the $). 

One of the most useful features of a command language of this type is the ability to form 
subroutines out of entire groups. Thus, the statement DO 5 calls all of group 5 as a subroutine 
beginning with the first group 5 line number. Control will then proceed through the group numbers 
going from smaller to larger. A return or an exit is generated from this type of subroutine by using the 
word RETURN, or by encountering the end of that group, or by transferring control out of the group via 
a GOTO or IF command. Similarly, the entire text buffer may be used as a recursive subroutine by 
simply using DO or DO ALL. 

The DO statement may be concatenated with other legitimate commands by terminating it 
with a semicolon. Thus, a single line may contain a number of subroutine calls. In this way, several 
forms of complex subroutine groupings may be tested from the console. 

The number of DO commands which may be nested linearly or recursively is limited only by 
the amount of core storage remaining after inclusion of the text buffer and the variable storage. 

NOTE 

When a GOTO or IF statement is executed within a DO 
subroutine, control is transferred immediately to the 
object line of the GOTO command; that line will be 
executed and return made to the DO processor. If the 
next line number is within the group (if this is a group 
subroutine), it will be executed. If, however, a line 
number outside of that group is about to be executed , 
then a return will be made from the DO subroutine and 
if any of the DO command line remains, it will be 
processed . 

2.3 EDITING AND TEXT MANIPULATION FACILITIES 

2.3.1 Command-Input 

A line number which has already been used and is reused in a new input will cause the new 
input to replace the line that previously had that number. Insertions are made at the appropriate point 
in a numerically-ordered string of lines. For example, line number 1 .01 (the smallest line number) 
will be inserted in front of (or above) line number 1.1. The largest line number is 15.99. 
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2.3.2 ERASE 

Removal of a single line may be made by using the ERASE command. For example, ERASE 

2.2 will cause line 2.2 to be deleted . No error comment will be given if that line number does not 
exist. The command ERASE 3 or 3.0 will cause all of group 3 to be erased . To delete all of the text, 
one must type the words ERASE ALL . 

ERASE, used alone, has the function of merely removing the variables. This may also be 
thought of as initializing the values of the variables to zero. 

To examine a single line, type WRITE followed by the line number. For example, WRITE 

3.3 will cause line 3.3 to be typed out with its line number on the Teletype. WRITE 4.0 will cause all 
of group four to be written on the Teletype. WRITE ALL will cause all of the text to be printed on the 
Teletype, left justified, with title and line numbers in numerical order. 

2.3.3 MODIFY 

When only a few characters of a particular line must be replaced, the MODIFY command is 
used to avoid replacing the entire line. For example, to change characters in line 5.41, type MODIFY 
5.41 . This command is terminated by a carriage return, and the program waits for the user to type that 
character at which he wishes to make changes or additions. The program will then type out the con- 
tents of that line until the search character is typed. (The search character is not echoed when it is 
first keyed in by the user.) The program will now accept input. 

At this point, the user has seven options: 

a. type in new characters in addition to the ones that have already been typed out; 

b. type a form-feed; this will cause the search to proceed to the next occurrence, if any, 
of the search character; 

c. type a bell which allows him to change the search character fust as he did when first 
beginning to use the MODIFY command; 

d. use the rubout key to delete characters going to the left; 

e. type a left arrow to delete the line over to the left margin; 

f . type a carriage return to terminate the line at that point and move the text to the right; 

g. type line-feed to save the remainder of the line. 

The ERASE ALL and MODIFY commands are generally used only in immediate mode, as 
these commands return to command mode upon completion. The reason for this is that internal pointers 
may be changed by these commands. 

During command/input, the left arrow will delete the line numbers as well as the text. 
During the MODIFY command typing the left arrow will not delete the line number. 

When the rubout key is struck, a backslash (\) is typed for each character that is deleted. 
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NOTE 

Any modifications to the text will cause the variables 
to be deleted as if an ERASE command had been given. 
This is caused by the organization of the data structure . 
It is justified by the principle that a change of program 
probably means a change of variables as well . 



2.4 FOR 

This command is used for convenience in setting up program loops and iterations. The 
general format is: 

FORA = B, C, D; . 

The index A is initialized to the value B, then the command string following the semicolon is executed 
at least once. When the carriage return is encountered, the value of A is incremented by C and com- 
pared to the value of D. If A is less than or equal to D, then the command string after the semicolon 
is executed again. This process is repeated until A is greater than D. 

Naturally, A must be a single variable; but B, C, and D may all be expressions, variables, 
or numbers. The computations involved in the FOR statement are done in floating point arithmetic. If 
comma and the value C are omitted, then it is assumed that the increment is one. For example: 
SET B = 3; FOR I = 0, 10; TYPE B t I, ! (power of 3) 

2.5 IF 

To provide transfer of control after a comparison, we have adopted the IF statement format 
from FORTRAN. The normal form of the IF statement contains the word IF, followed by a space, a 
parenthesized expression, and three line numbers separated from each other by commas. The program 
will GOTO the first line number if the expression is less than zero, the second line number if the 
statement has a value of zero, and the third line number if the value of the expression is greater than 
zero. 

Alternative forms of the IF command are obtained by replacing the comma between the line 

numbers by a semicolon. In this case, if the condition is met which would normally cause the program 

to transfer to a line number past that position, then the remainder of the line will be executed. 

Example: 

ASK REPLY 

IF (REPLY - OWAIT) 6.4, 5.01; RETURN 

IF (REPLY - OYES) 6.3, 5.02; 6.3 
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NOTE 

The IF command could occasionally fail to take the 
= branch due to internal computation and truncation 
errors. 



2.6 GOTO 



This command causes control of the program to be transferred to the indicated line number. 
A specific line number must be given as the argument of the GOTO command. If command is initially 
handed to the program by means of an immediately executed GO, control will proceed from low num- 
bered lines to higher numbered lines as is usual in a computer program. Control will be returned to 
command mode upon encountering a QUIT command, the end of the text, or a RETURN at the top level 

The operation of the GOTO is slightly more complicated when used in conjunction with a 
FOR or a DO statement. Its operation is perfectly straightforward when used with any other statement. 

2.7 RETURN 

The RETURN command is used to exit from DO subroutines. It Is implemented internally by 
setting the current program counter to zero. When this situation is encountered by the DO statement 
it exits. (Refer to the DO command, Section 3.2.). 

2.8 QUIT 

A QUIT causes the program to return immediately to command/input mode, type *, and 
wait. 

2.9 COMMENT 

Beginning a command string with the letter C will cause the remainder of that line to be 
ignored so that comments may be inserted into the program. 

2.10 CONTINUE 

This word is used to indicate dummy lines. For example, it might be used to replace a line 
referenced elsewhere without changing those references to that line number. 

2.11 SET 

The SET command for arithmetic substitution is used for setting the value of a variable equal 
to the result of an expression. The SET statement may contain function calls, variable names, and 
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numerical literals on the right hand side of the equal sign. All of the usual arithmetic operations plus 
exponentiation, may be used with these operands. The priority of the operators is a standard system: 
+-/*t . These, however, may be superseded by the use of parenthetical expressions. The SET state- 
ment may be terminated by either a carriage return or a semicolon, in which case it may be followed 
by additional commands. For example: 

SET AA=B(5+<6+CONST>*ALPHA/[5/BETA]);GOTO 3.2 

2.12 HIGH-SPEED READER 

2.12.1 General 

The asterisk (*) is also used as a flip-flop control over the selection of the input device to 
be used by a FOCAL program. (See the examples that follow.) An out-of-fape condition will return 
to low-speed reader input and change the status of the * flip-flop. An error condition, however, does 
not change that * flip-flop (see notes below). 

For example, typing: 

_ i 
will read in a program tape or a series of immediate commands. 

**;ASK ABCDZ 

will fill AB with data from tape. If tape is empty, control will return to command mode. 

*1.1*; FOR 1=1, 5; ASK AX(I) 
*DO 1.1 

If the tape contains fewer than 5 pieces of data, then remaining items are taken from keyboard. (See 
c below.) 

2.12.2 Other Rules 

a. * as a command may be concatenated with other processes [JMP (PROC): 
(e.g., 01.30*; ASK A, B;*) 

b. If an out-of-tape condition is encountered while reading commands, then the input 
device is switched to keyboard and all is returned to normal . (This occurs when the user has no reader.) 
It is equivalent to receipt of a left arrow. [JMP (IBAR)] . 

c. If an out-of-tape condition occurs while executing an ASK command, then FOCAL 
responds as if the end of the command line (carriage return) has been reached. [ISZ PDLXR; POPJ] 

Thus, 

**; ASK A,B,C,D 

produces::: (out of tape on C): and the user is back to normal mode. 
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However, 

*ERASE 

**; for 1=1 , 20; ASK A(I); TYPE 1,1. 

= 1.0000 

= 2.0000 

= 3.0000 

(out of tape for 1=4) 

(now accepting from keyboard) 123, = 5.0000 

345, =6.0000 

901.00 (Control -C typed) 
* TYPE $ 

I @ (00) = 7.0000 
A@ (01) = (data from tape) 
A @ (02) = (data from tape) 
A @ (03) = (data from tape) 
A@ (04) = .0000 
A@ (05) = 123.0000 
A @ (06) =345.000 

d. When an error occurs from the reader (illegal command, etc.), the code will be typed 
out and input device control returned to the low-speed device. However, the device flip-flop (HSPSW) 
will still indicate that the reader is active. Consequently, it will be necessary to give two asterisks 
before the reader will be activated again. 



** 
****** 

** 
T* 



712.83 (Buffer full) 



^reader now active again). 

e. It is necessary to have a fairly long timing loop to detect the out-of-tape condition 
(slow readers, restart delays, etc .). As a result, the user of a PDP-8/S may encounter long delays if 
there is no high speed reader or when the reader is out of tape. However, the initial dialogue makes 
a correction for this when an 8/S is being used. 

f . Since the reader operates with the interrupt on, one may use Control-C to return at 
once to keyboard input mode. A manual interrupt via Control-C (?01 .00) or a console restart (900.00) 
gives the same effect. 

g. All commands, including "*" may be executed in immediate mode from the high speed 
reader. This has several beneficial results: 

(1) Program tapes may be composed that are self-protecting and self-starting 

ERASE ALL (protection) 

01 . 10 ASK "Power of 29 M REPLY (input indirect program) 

01 .30 TYPE 2 REPLY, ! , GOTO 1 . 1 

(etc) 

GOTO 1 . 1 (starting) 

5, 3, 1 (data) 

This particular program is an infinite loop and must be stopped by a Control-C 
from the keyboard . 
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(2) Programs may chain themselves together. 

ERASE ALL 

3.4 TYPE "NUMBER 1"!!!; ASK A 

3.5 * (indirect command) 

*; GO (device restored to low speed and program 

started) 

The printout from this tape will be: 

** (START READER) 

****** NUMBER 1 



(Three lines accepted) 
(Erase processed) 

: (waiting for keyboard input) ) (user) 

(execution of 3.5 * at this point will reactivate the high speed reader). 

(3) Immediate mode commands on the tape allow maximum storage for variables. 

(4) If the interrupts are disabled by the patches shown in Section 4.5.3, then two 
tapes may be merged from both high- and low-speed readers by a resident FOCAL 
program . 



2.13 THE FUNCTIONS 



2.13.1 General 



The functions are provided to give extended arithmetic capabilities and the potential for 
expansion to additional input/output devices. There are basically three types of functions. The first 
group contains integer parts, sign part, square root, fractional, and absolute value functions. The 
second group has the input/output for scope and analog/digital converter functions. The third group 
has extended arithmetic computations of trigonometric and exponential functions. 

A function call consists of no more than four letters beginning with the letter F and followed 
by a parenthetical expression (e.g., FSGN (A-B *2)). This expression is evaluated before transferring 
to the function process itself. 

2.13.2 Analog to Digital 

a . Input 

The function FADC(X) is used to take a reading from an analog-to-digital converter. 
The value of the function is a 12-bit integer reading. The argument "X" is the channel member (AX08) 
in decimal . Additional version of the ADC function could be designed to provide for synchronization 
by a clock or other means, (c.f., Chapter 5) 

*SET A=FADC ( ) *5 
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b . Output 

The scope function FDIS (expression, expression) is used to set and display an X-Y 
coordinate on a Model 34 Scope and scope interface. The value returned for each of these functions 
is the integer part of the second expression. 

*SET Z =FDIS(X,X43/50) 

2.13.3 Extended Functions 

The extended arithmetic functions (FEXP, FLOG, FATN, FCOS, FSIN) are retained at the 
option of the user. They consume approximately 800 characters of text storage area. These arithmetic 
functions are adapted from the extended arithmetic functions of the three-word, floating point package. 

2.13.4 Random Numbers 

A simple random number generator is provided in the basic package as FRAN()! An expanded 
version could incorporate the random number generator from the DECUS library. 

Functions for other devices are provided as overlay tapes (see Appendix H). 

2.13.5 Standard Functions 

a. Trigonometric Functions 

All arguments are in radians 

FSIN ( ) - the sine functions 
FCOS ( ) - the cosine function 
FATN ( ) - the arctangent 

From these functions, the user may compute all other trigonometric functions. (See FOCAL User's 
Manual) 

b. Logarithmic Functions 

FLOG ( ) - log to the base e or Naperian base 
FEXP ( ) -e to the power 

c. Arithmetic Functions 

FSQT ( ) - the square root 

FSGN ( ) - one (1) with the sign of the argument 

FABS ( ) - the absolute value 

FITR ( ) - the next smaller integer part maximum of 1024 

LOG ]0 (ARG) = LOG e (ARG) *LOG 1Q (e) 

LOG 1Q (e) = 0.434295 



w 



here: 



LOG e (10) =2.30258 
e= 2.71828 



1 degree = .0174533 radians 
1 radian = 57.2958 degrees 
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2. 13.6 Using The Arctangent 

An arctan function cycles between + u/2 and - it/2. Thus, to get a correct range for 0-2 it 
radians from the expression FATN(Y/X), we must use the signs of X and Y. 
X Y FATN(XA) 
+ + 0-PI/2 
+ PI/2 - PI 
PI - 3*Pl/2 
+ - 3*Pl/2 - PI*2 

♦ GO 



INDEX 


X 


Y 


FUNCTION 




CONFUTED 


0.00= 


1.00 = 


0.0f'.= 


0.000000 


= 


0.000M0F 


0.30 = 


0.96 = 


0.30 = 


0. 300000 


= 


0. 300000 


0.6G = 


0.83= 


0.57= 


0. 600000 


= 


0. 60^!>00 


0.90 = 


0.62= 


0.78= 


0. 900000 


= 


0.900000 


1 . 20= 


0.36= 


0.93= 


1 .200000 


= 


1 .200000 


1 . SP= 


0.0 7= 


1.00 = 


1 .500000 


= 


1 . 500000 


1.80=- 


0.23= 


0.97=- 


1 -3/il 600 


= 


1 .R0P000 


2.10=- 


0.51 = 


0.86=- 


1.041 60P 


= 


2. 100000 


2.40=- 


0.74= 


0.68=- 


0.741595 


= 


2.400000 


2.70=- 


0.91 = 


0.43=- 


0.441595 


= 


2.700000 


3.00=- 


0.99= 


0. 14=- 


0. 141595 


= 


3.000000 


3.30=- 


0.99=- 


0.16= 


0. 158403 


= 


3.300000 


3.60=- 


0.90=- 


0.44= 


0.458402 


= 


3.600000 


3.90=- 


0.73=- 


0.69= 


0.758 402 


= 


3. 900000 


4.20=- 


0.49=- 


0.87 = 


1 .058 400 


= 


4.200000 


4.50=- 


0.21=- 


0.98= 


1.358 400 


= 


4. 500000 


4.80 = 


0.09=- 


1.00=- 


1 .483200 


= 


4.80000P 


5*10= 


0.38=- 


0.93=- 


1. 183200 


= 


5. 100000 


5.40= 


0.64=- 


0.77=- 


0.883196 


= 


5. 400000 


5.70= 


0.8 4=- 


0.55=- 


0.583195 


= 


5.700000 


6.00 = 


0.96=- 


0.28=- 


0.283198 


= 


6.000000 


6.30 = 


1.00= 


0.02= 


0.016802 


= 


0.016802 


6.60 = 


0.95= 


0.31 = 


0.316803 


= 


0.316803 


6.90 = 


0.82 = 


0.58= 


0.616800 


= 


0.616800 



C-FOCAL , 8/68 



01.05 T !!!!" 



INDEX X Y FUNCTION 

01.10 FOR I=0#.3*7J TYPE !,%4.02»IlD 2 
01.20 TYPE !!!!* WRITE ALL 
01.30 QUIT 

02.10 SET Y=FSIN<I)J SET X=FCOS(I> 

02.20 TYPE X#Y*28.06#FATNCY/<X+1E-10>)1 DO 1 3J TYPE 

13.10 IF CX)13.3#13.2#13.3 

13.20 SET X=1E-100 

13.30 SET TH=FATN<FABS«Y/X>) 

13.40 SET PI=3. 141596 

13.50 IF <Y> 13.61 IF CX) 13. 71 RETURN 

13.60 IF <X> 13.8JSET TH=PI+PI-THJ RETURN 

13.70 SET TH-PI-THJ RETURN 

13.80 SET TH=HI+THJ RETURN 

* 



COMPUTED 



THJ 
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2.13.7 Boolean Functions 



TRUE is +1 














FALSE is - 


•1 












*D 15 














A B 


AND 


OR 


NOR 


XOR 


CARRY 


SUM 


=-l=-l 


=-1 = 


-1 


1 = 


1 


=-l=-l 




=-1- 1 


=-1 = 


1 


1 = 


-1 


=-1= 1 




= 1=-1 


=-1 = 


1 


1 = 


-1 


=-1= 1 




= 1= 1 


= 1 


1 


-1 = 


1 


= 1=-1 





XOR is A*B 
NOR is FSGN(-A-B) 
OR is FSGN(A+B) 
AND is FSGN(A+B-1) 
NOT(A) is -A 

The result of adding A and B is 

CARRY = FSGN(A+B-1) 
SUM = -A*B 

* 

*WRITE 15 

15. 05 TYPE" A B AND OR NOR XOR CARRY SUM"! 

15.10 FOR A=-l,2,l; FORB=-l,2,l;TYPE A,B," "; DO 15.2 

15.15 QUIT 

15.20 TYPE FSGN(A+B-1),FSGN(A+B),FSGN(-A-B),A*B," "FSGN(A+B-1),-A*B, ! 



2.13.8 FNEW - A User Function 

This function name may be used to call a machine language routine for any reason. 
(See Section 4.4. 1) 

2.14 THE LIBRARY COMMAND 

The form and usage of this mass storage command will vary with the computer and FOCAL 
system used, (c.f., 4.6) 

2.14.1 L-Command For Single User System 

The command may be given in either direct or indirect mode. Execution of this command 
first causes the octal rypeout of the contents of four FOCAL pointers: CFRS, BUFR, LASTV, and 
BOTTOM, respectively. The second action is to type out whatever characters follow the "L" to serve 
as operating instructions for the user. The third action is to turn off the interrupts and transfer to the 
Disk Monitor or 8-Library System by jumping to 7600. 
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The four octal numbers represent: 

a. the start of text buffer, 

b. the end of text buffer, 

c. the end of the variable list, 

d . the bottom of the push-down I ist . 

These command features will permit optimum usage of available disk storage and be compat- 
ible with the Disk Monitor. 

After debugging a program, a typical user will execute ERASE and LIB. (This causes B and 
C to be equal in the 4K system.) He will then save the program and restart or call another program. 
(See Section 3.4.12) 

Manual Chaining may also be done. For example, when a program reaches line 12.3, it 
may need to call another routine (as in a series of teaching programs, demos, or math subroutines). 
The user, however, must be given instructions on how to proceed: 
12.30LIB .CALL LES2 

For example, execution of 12.3 may produce: 

3206 
3345 
3401 
4407 

.CALL LES2 
.CALL LES2 [User types this] 

.START 

* 

In the 8K Version, the text and variables are stored independently. For this reason, the 8K 
version can have different programs operating on the same data. (See Section 3.4.14) 

2 . 14.2 LIBRA Command Specifications for Multi-User Systems* 

Four modifiers of the LIBRARY command are implemented to allow automatic program 
storage, retrieval, and management in multi-user FOCAL. This extension to the FOCAL system is 
implemented under the segment name LIBRA and requires at least an 8K PDP-8 with one DF32. 

The LIBRARY command and its variations are: 

a. To save a program on disk, 
LIBRA SAVE name ) 
Where "name" Is a 1 to 4 character identifier and } is described in the FOCAL language specifications. 



"Not completed 
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Errors: 

(1) A program with an identical name has been found in the directory list 

(2) Name missing from command 

(3) Disk I/O error (non-recoverable) 

b. To call a program on disk, 

LIBRA CALL name j 
Errors: 

(1) No such program on directory list 

(2) Name missing from command 

(3) Disk I/O error (non-recoverable) 

c. To delete a program from disk, 

LIBRA DELETE name j 
Errors: 

(1) No such program name in directory list 

(2) Name missing from command 

(3) Disk I/O error 

d. To list the directory 

LIBRA LIST ; 
Errors: 

(1) Disk I/O error 



NOTE 

This command will destroy any program by an effective 
"ERASE ALL". 



The directory is printed ten across for as many lines as necessary. 

2.14.3 DF32 FOCAL FILE STRUCTURE 

Programs are stored in blocks 160CL words long. This allows 36 blocks of storage on one 
DF32 and a directory of 512 words or 256 entries. This directory is sufficient for the maximum DF32 
configuration allowable on a PDP-8. 

1. Disk 36 blocks 

2. Disk 72 blocks 

3. Disk 110 blocks 

4. Disk 146 blocks 
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The directory is a linear list with a maximum size of 512 words (with 2 words/entry). Word position in 
the list corresponds to the block position on the disk. The blocks begin at location 1000.. from the end 
of the directory and extend in increments of 1600 fl to the end of the disk. The end of the list is an 
entry of ones. Unused blocks are indicated by entries of all zeroes. 

The LIBRARY functions swap users in the multiple user system. This diminishes the total 
number of blocks by the maximum number of allowed users. A disk program is required to clear the 
directory, and to set the maximum number of blocks available. 

2.15 WRITE 

The WRITE command is used to list the entire indirect program (WRITE ALL or W), specified 
groups, or single lines. When all text is printed, a leader-identifier is given at the top of the listing. 
This identifies which major version is being used for the particular indirect program. (FOCAL, 1969; 
8K FOCAL @ 1969; 4-word @ 1969). 

NOTE 
The WRITE command disables the trace. 
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CHAPTER 3 
FOCAL USAGE 

3.1 REQUIREMENTS 

Any 4K PDP-8 family computer with Teletype may be used with FOCAL: PDP-5, PDP-8, 
PDP-8/S, PDP-8/1, PDP-8/L, LAB-8, LINC-8, TSS-8, PDP-12. 

3.2 LOADING PROCEDURE 

a. The RIM or Read-In-Mode Loader must be in memory. (See RIM Loader Manual for a 
thorough discussion.) 

b. The RIM Loader is used to load the Binary Loader. (See Binary Loader Manual for a 
complete description.) 

c. The Binary Loader is used to load FOCAL. 

d. Upon halting, press the CONTINUE key, since the program is loaded in two sections. 

e. Place 200, the starting address of FOCAL, into the Switch Register when the complete 
tape has been loaded . 

f. Press the LOAD ADDRESS key. 

g . Press the START key . 

h. The initial dialogue will begin. 

3.3 INITIAL DIALOGUE 

The program will identify the DEC 12-bit computer you are using and make appropriate 
corrections to itself. If the user determines that extra space is required, the program will permit rejec- 
tion of extended functions. 

FOCAL is ready for commands when it types * . 

3.4 OPERATION 

3.4.1 Restart Procedure 

There are two methods to restart the system . 

Method 1 - Type the character control/C at any time; (FOCAL acknowledges this by typinq 
?01.00). / /K a 

Method 2 - a. Put 200 into the Switch Register 

b . Press the STOP key 

c. Press the LOAD ADDRESS key 

d . Press the START key 

e. The program will then type 700.00 indicating a manual restart, and an 
asterisk indicating it is ready to receive input. 
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3.4.2 Keyboard Error Recovery 

If an error is made while typing commands to FOCAL, one of the following methods may be 
used to recover: 

a. Use the RUBOUT key on the teletype keyboard to erase the preceding character. The 
RUBOUT key echoes \ for each character removed. 

b. Use the MODIFY command, with the modify control characters, to search the command 
string for any character in error and alter or delete that character. 

c . Use Left Arrow to delete over to the left margin . 

d. Use Left Arrow to delete input data. 

3.4.3 Parentheses 

The following parenthetical pairs may be used in any alphanumeric expression: parentheses, 
angle brackets ( < >), and square brackets ( [ ] ). The program checks to see whether the proper 
matching terminator has been used at the correct level . Use of these terminators in different configura- 
tions provides additional clarity in reading alphanumeric expressions. 

3.4.4 Trace Feature 

A trace feature may be used to detect errors, follow program control, and create special 
formats. To implement the trace feature, insert a question mark into a command string at any point. 
Each succeeding character will then be typed out as it is interpreted until another question mark is 
encountered or until the program returns to command-input mode. 

3.4.5 Variables, Functions and Numbers 

A variable name consists of one or two alphanumeric characters, of which the first must be 
a letter. The second character may be A-Z, 0-9, ", '. Additional characters are ignored. 

Function names are easily distinguished from variable names because they start with the 
letter F. A number always begins with a digit 0-9. 

3.4.6 Error Diagnostics 

Programming errors are indicated by an error diagnostic. The printout is in the form 
?XX.XX @ GG.SS. The first number is a specific error number derived from the core address of the 
error call . The GG.SS is the number of the line, if any, of the text which contains the error. 

The error diagnostic printouts are intended to be efficient yet informative and explicit. 
Used in conjunction with the trace feature, these will pinpoint errors precisely. (See Appendix B). 
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Example: 

*DO 2.35? 
SET A=5/C + ?28.72 (Divide by zero, C=0) 



3.4.7 Arithmetic Priorities 



t 
* 

/ 



+- 
Operations of equal priority are executed from left to right (e.g., T 2t3t2=64 not 512). 



3.4.8 ASCII data 



ASCII input of A-Z has the values of 1-26 per digit per letter respectively, thus, 

*ASK A; TYPE A 
:Z=26.00 
*A A; T A 
:AZ =36.00 

This is also true for internal numerical constants like ONO, OYES, etc. 

(See the IF command for an example of this feature.) 

The technique may also be used to create a kind of associative memory: 

*ASK A; ASK GRADE (A) } 
:DICK : 95 

*ASK A;TYPE GR(A)j 
:DICK =95 



3.4.9 Indirect Commands 

If a Teletype line is prefixed by a line number, that line is not executed immediately, but 
is stored for later execution. Line numbers must be in the range 1 .01 to 31 .99. The numbers 0.0, 
1.00, 2.00, 3, etc., are illegal line numbers and are used to indicate the entire group. The number 
to the left of the point is called the group number; the number to the right is called the step number. 
Execution of indirect commands is begun by an immediate GOTO of DO command. The GOTO com- 
mand causes FOCAL to start the program by executing the command at a specified line number (e.g., 
GOTO 1 .3). The GO command causes FOCAL to go to the lowest numbered line to begin executing 
the program and continues until it runs out of program text. FOCAL can automatically cross group 
boundaries. 
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3.5 SAVING FOCAL PROGRAMS 

3.5.1 Paper Tape 

To save a FOCAL symbolic text, type WRITE ALL, turn on the punch, type @ marks for 
leader-trailer, and type carriage return. When all of the program has been typed out, type additional 
@ marks for more leader-trailer, turn off the punch, and continue your conversation with the computer. 
(To save a FOCAL binary program, see Appendix C.l .) 

3.5.2 LINC Tape (see Section 2.14 .1; TC01 via 8-LIBRARY SYSTEM; PDP-12) 

On LINC tape, load FOCAL program as follows: 

a. Load FOCAL binary tape, execute Initial dialog, and call UPDATE. 

NAME: START 

SA (OCTAL): 200 

MEM LOCATIONS: <4600, 7577 >; 

b. Call UPDATE again. 

NAME: FOCAL 

SA (OCTAL): (none) 

MEM LOCATIONS: <0, 3377 >; 

c. Calling Sequence: 

FOCAL 

START 
* 

d. Write the desired FOCAL routine. 

e. Give an "L" command. Four octal numbers will be printed, and control will return to 
the Library System. 

UPDATE 

NAME: (user's choice) 

SA (OCTAL): (none) 
MEM LOCATIONS: < >< (A), (B) > ; 
Where "(A)" and "(B)" mean the first and second octal numbers. 

f . To call a program: 

FOCAL 
(user's choice) 

START 
* 



3.5.3 Disk Monitor System (see Section 2.14.1) 
a. Build the Disk System. 
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b. Load FOCAL into field zero. 

(If the computer has 8K, use the binary loader in field 1 .) 

Alternate procedure: Use PIP to place the binary on disk. Then, use LOAD on the 

disk file. (This procedure is faster for a teletype, but uses more disk space.) 

c. Load Address 200, START, and complete the initial dialogue. 

d. Load Address 7600 and START. 

e. Initialize the disk as follows: 

.SAVE START 14600-7577; 200 
.SAVE FOCAL 10-3377; 

f. Run FOCAL. 

.) FOCAL 
.} START 

(Create Program) 

g. Save program; return to disk Monitor by giving an L command. 

.SAVE (name);0,(A) - (B) [note saving page zero] 

h . Run a program (after doing either step f or g) . 

.focal; 

.CALL (name) J 

.START; [linefeed will not occur] 

*(FOCAL ready) 

i Steps g and h may be repeated . 

3.5.4 Disk System and Extended Functions 

To cope with configurations involving deletion of extended functions, proceed as follows: 

a. Load FOCAL and start at 7600; 

.SAVE START 14600-7577; 200 

.SAVE I NIT :0, 3200-4577; [note saving page zero] 

.CALL INIT 

.START 

[Dialogue, answer YES] 

*L 

.SAVE FOCAL 1 0-3377; 

b. To reinitialize a system without some extended functions, type 

• FOCAL 
•CALL INIT 
.START 

[Dialogue, answer NO, YES, i.e., keep sine and cosine] 

*L 

.SAVE STNY! 5200-7577,-200 
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c. To create a system without any extended functions, type 

.FOCAL 
.CALL INIT 

• START 

[Dialogue, answer NO, NO] 

*L 

.SAVE STNN!5400-7577;200 

d . Be sure to use the correct START command with each user program . 

0) 

[to use no exponential function version] 

.FOCAL 
.CALL NEXP 

• STNY 

* 

(2) or 

[to use no cosine function version] 

.FOCAL 

.CALL NCOS 

.STNN 
* 



3.5.5 Disk System and Extended Memory (see section 2.14.1) 

Follow these operations to set up an 8K version of FOCAL on the disk: 

[Build Disk System] 

[Load FOCAL] 

[Start at 200] 

[Dialogue, answer questions.] 

*l; 

0100 (A) 

0121 (B) 

3217 (C) 

XXXX (D) 

.SAVEST8K! (D) -7577;200 

.SAVEFCL8! - 3177; 

.SAVE NUL8: 10100; 10113 



The SAVE command for a finished 8K FOCAL program is 
• SAVE CODE: 1(A) - 1(B); 10113 
where (A) and (B) are the first and second four digit numbers typed out by the L-command . These are 
the field one bounds of the program text. The value of (D) will depend on the functions retained . 
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The variables, however, are In field zero. To save a set of data, type: 

.SAVE DAT8:0;3200-(C); [note saving page zero, field zero] 

To set up a null program with a particular data set, type: 

.FCL8 

.CALL DAT8 
.CALL NUL8 
.ST8K 

3.5.6 For 4-user FOCAL SAVE command, see Section 4.6.6. 

3.5.7 EAE Patch for FOCAL, 1969 



7203 


3206 


DCA 


.+3 


7204 


1256 


TAD 


MP2 


7205 


7425 


MQL 


MUY 


7206 










7207 


3253 


DCA 


MP5 


7210 


7501 


MQA 




7211 


3255 


DCA 


MP3 


7212 


5227 


SNP 


.+15 
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CHAPTER 4 
PROGRAM SPECIFICATIONS 

4.1 MACHINE REQUIREMENTS 

The minimum hardware configuration necessary to run this program is a 4K PDP-8 family 
computer with ASR-33 . 

Scope, an additional 4K memory, and high-speed reader and punch are available options. 
Additional PT08s are added for extra users. 

4.2 DESIGN SPECIFICATIONS 

4.2.1 Design Goals 

FOCAL is a conversational language and operating system for a basic PDP-8. It is designed 
to facilitate on-line editing and execution of symbolic programs. (For BNF description, see Appendix 
F.) 

4.2.2 Input 

The keyboard, low-speed reader, or high-speed reader may be used for input of program 
text and for commands to be executed immediately. Keyboard input is double buffered. 

4.2.2. 1 Input Format - See description of the commands in Chapter 2 for format information. 

4.2.2.2 Character Set - Input and output characters are in ASCII teletype code. Interpretive opera- 
tions are also done internally in expanded ASCII. The text buffer is packed two characters to a word 
as follows. 

number = represented as: prints as 
300 = not packed = ignored: @ 
301 -336 =01 -36: A-Z 

337 = not packed - edit control, kill line: - . 
240 - 276 - 40 - 76: symbols 

277 =37: ?. 
340 - 376 = 7740 - 7776 (extended codes): non-printing 

377 = not packed - edit control, delete preceding character; if a character 

is deleted, \ (backslash) is typed. 
200 = not packed - ignored: leader-trailer 
210 - 237 = 7701 - 7737: control characters 

000 = not packed - ignored: blank tape. 
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4.2.3 Output 

4.2.3.1 Output Format - See the TYPE and WRITE statements for format of output. The output 
character set is the same as that for input . 

4.2.3.2 The Input/Output and Interrupt Processor - The purpose of the interrupt handler and the I/O 
buffers is to permit input and output to proceed asynchronously with calculations. This allows an 
optimal use of the computer time. When the interrupt handler finds that the teletype output flag has 
been raised, it clears that flag and looks to see whether there are any additional characters in the 
teletype output buffer to be printed. If there are, it takes the next character from the buffer, prints 
it, clears that location in the buffer, and moves the pointers. Separate pointers are maintained for 
both the interrupt processor and for the program output subroutine (XOUTL). If the interrupt handler 
finds that there are no more characters to be output on the Teletype, it will clear the teletype in- 
progress -switch (TELSW). If the interrupt handler does output another character, it sets TELSW to a 
nonzero value. 

When the program desires to place characters in the buffer for the interrupt processor to 
print, it makes a call to XOUTL. This routine first checks to see if TELSW has been set. If TELSW is 
zero, no further interrupts are expected by the interrupt processor, and the output routine immediately 
types the character itself and sets TELSW to a nonzero value. Otherwise, if the interrupt processor is 
in motion, then the output routine places the character into the buffer and increments the pointer. If 
there is no room in the buffer for additional characters, the low-speed output routine waits until room 
is available. The keyboard input processors are similar in organization to the output routines except 
that no in -progress -switch is needed and the input is only double buffered. 

Another advantage of the interrupt system is that it enables the user to stop program loops 
from the keyboard by typing Control C. The recovery routine will then reset the I/O pointers, type 
out the message code ?01 .00, and return to command mode. Manual restart via the console switches 
also goes to the recovery routine, resets the pointers, and types out message code 700.00. In fact, 
all error diagnostics go to the recovery routine. Error printing is withheld until prior printing is com- 
plete. Otherwise, on occasion, a full buffer could be dumped and the error message could be printed 
as many as 16 characters before it should have otherwise occurred. This would be misleading when 
using the trace mode to discover specific errors within a character string. 

The recovery routine may also be called by the interrupt processor if it discovers that there 
is no more room in the keyboard buffer. For example, this could occur if the user continues to type on 
the keyboard while the program is making computations. Physical evidence of the error is indicated by 
failure of the computer to echo characters as the user types. 
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NOTE 

This error could also occur when reading a paper rape 
program into the text buffer via the low-speed reader. 
If the output hardware is slower than the input hard- 
ware, more text is read in than is being read out of the 
buffer, resulting in failure of the program to empty the 
reader buffer as quickly as it is being filled up, since 
the program synchronizes the reading of the characters 
with sending them into the buffers. In other words, the 
program synchronizes its side of the I/O buffers, but the 
interrupt side of the I/O buffers proceeds at a rate deter- 
mined by the hardware. To prevent this type of error with 
long input tapes, which were prepared off-line, carriage 
returns may be followed by some blank tape which is ig- 
nored by the input routines, thereby giving the output 
routine time to catch up. This is essentially a hardware 
problem since the program is unable to stop the low-speed 
reader. 

4.2.4 Organization 

4.2.4. 1 Arithmetic Package - The arithmetic is done in the floating point system. The three-word 
floating point package allows six digits of accuracy plus the extended functions. The program will 
eventually use four words as an option. The exponential range is approximately ten to the six hundredth. 
Internal accuracy during computations is 6.924 decimal digits. 

The four-word floating point system creates ten digits of accuracy, including roundoff. It 
does, however, require more storage for variables and for push-down list data. 

4.2.4.2 Storage - The major components of the program occupy locations 1-3200. The remaining 
storage 3200 - 4600 is used for text storage, variable storage, and push-down storage, in that order. 
The text occupies approximately two characters per register. The variables occupy either five or six 
locations per variable depending on whether the three- or four-word option is utilized. 

Remaining storage is allocated to the push-down list. Overflow will occur only when one 
of these lists exceeds the remaining storage. This could happen in the case of complex programs which 
have multiple levels or recursive subroutine calls. The push-down list contains three kinds of data. 
One of these is a single location for push-jump and pop-jump operations. The content of the accumu- 
lator is also pushed into the same list in a single register. The third type of push-down storage is 
floating point storage (see Appendix D). 
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This important storage allocation scheme permits flexibility in the trade off of text size, 
number of variables, and complexity of the program, rather than restricting the user to a fixed number 
of statements or characters, or to a fixed number of subroutine calls, or to a limited number of variables. 

4.3 HARDWARE ERRORS 

The 8/S will halt at location EXIT +6 if a parity error occurs. 
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INTERNAL ENVIRONMENT 



4.4.1 Adding a User's Function;FNEW(Z) (c.f., Section 5.2) 

The FOCAL system was designed to be easily interfaced for new hardware such as LAB-8, 
multiplexed ADCs real-time clocks, or to software such as a nonlinear function. 

The information given below, the symbol table, the various lists, and a core layout are in- 
tended to be sufficient for all required modifications and patches. This symbolic approach ensures 
greater flexibility and compatibility with DEC modifications to FOCAL, other user's routines, and 
assembly via PAL III on a PDP-8. 

Example: Suppose we had a scope routine to display characters at a given point on a scope. 
We will call this routine from FOCAL as function by FNEW (X, Y, SHOW). Here X and Y are expres- 
sions to be used as display coordinates for the start of SHOW. 

a. First, patch the function branch table. 

*FNTABF + 15 
XFNEW 

b. When control arrives at XFNEW, the X has already been evaluated. 

XFNEW, JMS I INTEGER /make 12 bit integer 



DXL 
CLA 



in AC 
/set X - coor, 



c . Now, test for the possibility of another argument. 



TAD 
TAD 
SZA 
JMP 

d . Move past the separating comma . 

GETC 
SPNOR 



CHAR 
MCOMMA 
CLA 
EFUN3I 



/ 



no more 
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e. Evaluate the second argument. 





PUSHJ 




/this F NEW is 
EVAL /not recursive 




JMS 


I 


INTEGER 




DYS;CLA 




/set Y and intensify 




SPNOR 








TAD 




CHAR 




TAD 




MCOMMA 




SZA 




CLA 




J MP 


I 


EFUN3I 


f. 


Now, pick up the single letters for display 


until the end of the function is reached. 




DCHR, GETC 








TAD 




CHAR 




TAD 




MRPAR 




SNA 




CLA 




JMP 


I 


EFUN3I 



Char, display routine called here; (for Tektronics Y002, it is simply PRINTC) 
JMP DCHR 

g. Definitions from the symbol table are available in Appendix E. 

Summary: 

a. User defined functions must leave their value, if any, in FLAC and return by a 
JMP I EFUN3I. 

b. The contents of FLAC is converted to an integer in FLAC and in the AC by a 
JMS I INTEGER. 

c. The floating point arithmetic interpreter is entered by JMS I 7. 
(FOCAL uses its own version of the floating point package.) 

d. The address of the user's function is placed by him in the FNTABF list. 

e. Location BOTTOM contains the address of the last location to be used for storage. If 
BOTTOM is made to contain 4277, for example, then the user has from 4300 to 4577 for 
storage of the function processor. The user should achieve his function implementations 
using the information given here and in the symbol table without using the actual listing so 
that changes made by different users may be compatible and so that they may also be 
relocated easily should any changes be made by DEC. (see Section 4.5.1 for Core 
Utilization List) 

f . The argument following the function name is evaluated and left in FLAC before control 
Is transferred to the particular function handler. Since evaluation is terminated by either 

a comma (,) or a right parenthesis, a special function could have more than one argument. 

Only in the case of multiple arguments does a user need to worry about saving his 
working machine language storage for a possible recursive use of his function. The contents 
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of the AC are saved by PUSHA and restored by POPA for this purpose. If there is another 
argument, it may be evaluated by PUSH J; EVAL. Doing a PUSHJ; EVAL-1 is equivalent to 

GETC;PUSHJ;EVAL. 

4.4.2 Internal Subroutine Conventions 

4.4.2.1 Calling Sequences - The (AC)=0 unless it contains information for the subroutines. Upon 
returns (AC)=0 unless it contains data. 

There are six types of routines and subroutines used in the implementation of this program: 

a. Normal subroutines called by an effective 

JMS SUBR1 

which contain zero at their entry point 

SUBR1,0 
and a return by a 

JMP I SUBR1 

b. New instructions called by 

PRNTLN /(to print a line number) 

and usually defined by 

PRNTLN = JMS I. 
XPRNT 

where XPRNT is the entry point for a normal subroutine. These new instructions may have 
multiple returns/multiple arguments: 

SORT J /call; 

LIST6-1 /data list minus one; 

INLIST-LIST 6 /increment to branch table 

/return if CHAR is not in LIST6 

These new instruction subroutines often have implied arguments, e.g., GETC, READC, 
PACKC, TESTC, and SORTC all use the variable CHAR as their argument. The new 
instructions SORTJ and PRINTC use CHAR only if the AC is zero. If the AC is nonzero, 
then that value is used. Still others use only the AC for their argument: 
RTL6, TSTLPR, PUSHA, and TSTGRP, (see Appendix G). 

c. Recursive routines called by 

PUSHJ /call 

EVAL /address 

1 /return 

where the address contains the first instruction of the routine. The return address is kept in 
the push-down list, and exit is made by use of 

POPJ /exit subroutine. 
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Such routines may call each other or themselves in any sequence and/or recursively by 
saving data on the push-down list. Others are EVAL, PROCESS, PROC, and GETVAR. 

d. Command processor routines to handle specific command formats are called by 

SORTJ /go to command 

COMLST-1 

COMGO-COMLST 
ERROR 3 /illegal command 

The individual command routines use only new instructions and recursive routines. They may 
exit in one of three possible ways: 

(1) POP J - if C .R. is encountered or 

(2) transfer to another command routine or 

(3) transfer to START 

e. Floating point groups of interpretive instructions similar to the following format: 

FINT /enter floating interpreter (i.e., JAS 17) 



FGET 


FLARG 


FMPY I 


PT1 


EPUT 


FLARG 


FXIT 





/leave floating interpreter 

f . Main processor modules to handle text input and keyboard commands. This routine 
could be "locked-out" by an instructor to protect and execute a stored or immediate 
command program repeatedly. 

IBAR, INPUT X 

Similarly, selected commands are easily deleted by the instructor by placing zero in the 
appropriate locations in COMLST. 

Line number input and explicit replacements are "short circuited" by 

GONE+ 11, error 3 

4.4.2.2 Subroutine Organization - Figure 4-1 illustrates the internal use of various subroutines, 
(c.f., Flowcharts in Appendix G). 

4.4.3 Character Sorting 

If a program must contend with a number of different characters (or 1 1-bit items) each of 
which can initiate different responses, simply look up the address of the action that corresponds to a 
given symbol or bit pattern. If the symbols do not form a continuum, the programmer must find the 
most efficient method for determining the corresponding address. 

The method used in FOCAL is the table sort and branch. This method uses a subroutine to 
match up an input character with one member of a list of characters. The call to the subroutine is 
followed by 
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a. the address minus one of the list and 

b. the difference between that list and a second list. The latter list contains the corre- 
sponding addresses. Thus, if a match is found in the first list, the difference is added to the address of 
that match to compute the address in the second list which contains the name of the action to be 
performed . 

c . The next instruction to be executed if a match is not found . 

In addition to being simple and concise, although more time consuming than other methods, 
this technique has another advantage that is especially useful In a PDP-8: the tables may be placed 
at page boundaries to take up the slack that often occurs at the end of a page. This results in a more 
efficient use of available core storage. 



COMMAND AND 
INPUT PROCESSOR 



d. COMMAND ROUTINES 



£ 



NORMAL SUBROUTINES 



NEW 
INSTRUCTIONS 




RECURSIVE SUBROUTINES 



it t 1 



RECURSIVE SUBROUTINES 



J 



Figure 4-1 

4.4.4 Language 

The program is written in PAL III with floating point commands, as well as program-defined 
commands, implemented as subroutine calls, (see Appendix G) The program must be assembled using 
PAL10. 
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4.5 



NOTES 



4.5.1 



Core Utilization 



NAMES 


PLACE 


SEGMENT 




0-15, 17-166 


FOCAL (4K) 




167-175 


8K 




176-2572 


FOCAL (4K) 




2573-2577 


8K 




2600-2724 


(Interrupt Handler) 




2725-3117 


FOCAL (4K) 


IOBUF: 


3120 


(I/O Buffer) 


COMEIN: 


3140 


(Command Buffer) 


FRST: 


3206 


(Text Buffer) 


BEGIN: 


4420-4577 


(Initialization) 




4430-4577 


CLIN 


FEXP: 


4620-4776 


(Extended Functions) 


ARTN: 


5000-5166 


[11 free] 


FCOS: 


5200-5345 


[32 free] 


TGO: 


5400-5577 


[ free] 


DECONV: 


5600-5773 


[ 4 free] 


FLOUTP: 


6000-6157 


(Output Conversion) 


THISD: 


6160-6176 


8K 


FLINTP: 


6200-6317 


(Input Conversion) 


HREAD: 


6320-6377 


(High Speed Reader) 


FPNT: 


6400-7177 


(floating interpreter) 


MP4: 


7200-7377 


[none free] 


XSQRT: 


7400-7502 


[FSQT( ) and format buffer] 


LIBRARY: 


7503-7556 


(Single user L command) 


XRTD: 


7557-7576 


8K 


Storage of text is 


3200-4577 


14 functions 




3200-5177 


1 1 functions 




3200-5377 


9 functions 



4.5.2 



Extended Functions 



Extended Functions may be reinitialized by loading in the second part of main program tape. 

Functions are normally deleted by answering the questions asked when FOCAL is initiated. 
However, they may also be erased by changing location 0035 to 5377, and locations 401 through 
0405 to 2725. Retaining the extended functions allows approximately 1200 characters of text or 170 
variables (or any combination in the ratio of 7 characters to one variable). Deleting the extended 
functions allows approximately 1800 characters or 250 variables. 
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4.5.3 Error Printouts 

Errors 901.00 

900.00 

and 911.35 

Because these errors are time dependent, they may be followed by nonexistant or false line number. 

4.5.4 No Interrupts 

To read data tapes without running the risk of Keyboard-Input-Buffer overflow (91 1 .35), it 
is necessary to remove the interrupt. This action means that Control-C will not work. 
To run FOCAL without interrupts, change: 

Loc/From To 

63/2676 1353 

64/2666 2413 

2732/6001 5336 

2762/6046 7000 

The high-speed punch will now run in parallel with the low-speed punch! 

To run the high speed punch at top speed change: 

1356/6041 6021 

4.5.5 Operating HS Reader Without Interrupts 

To run the high-speed reader without interrupts, make the above patches plus two more: 

6324/1037 6011 

6325/7700 7410 

4.5.6 Non-Typing of Program Tapes During Loading 

The "echo" feature for the ASR-33 may be suppressed by changing location 2163 to 7000 
(from 4551). This will cause only asterisks to be typed as the tape is read. There will not be line 
feeds or carriage returns, (c.f. , 4.7.3.4 for multi-user system) 

Any output commands will be typed out in the usual manner, as will diagnostics, answers, 
etc. Entries from the keyboard will not be typed. 

4.5.7 Explanation of NAGSW (Not All or Group Switch) 

Since LINENO may be modified, a record is needed of whether a specific line number was 
given by XX. YY (where XX and YY are nonzero) or whether a group was indicated by XX or XX: or 
XX. 00 or whether "ALL" text was indicated by either zero, less than one, or a non-numeric argument: 
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For one line 
For a group 
For all text 
Error 

PDP-8 code for testing NAGSW: 

skip if 



NAGSW = 
4000 
0000 
0001 
4001 



Or 


One 


All 


Group 


ONE 


SMA 


« 


SMA SZA 


ALL 


— 


SPA SNA 


SNA 


GROUP 


SMA SZA 


SPA SZA 


SZA 



4.5.8 Data Inaccuracies 

8 27 
The logical conclusion from the inequality 10 < 2 is that the user can represent 8-digit 

decimal floating-point numbers accurately by 27-bit floating-point numbers. However, 28 significant 

bits are needed to represent some 8-digit numbers accurately. In general, we can show that if 

a-1 
10 P < 2 q , then q significant bits are always enough for p-dlgit decimal accuracy. Finally, we can 

define a compact 27-bit floating-point representation that will give 28 significant bits, for numbers of 

practical importance. In FOCAL, 23 bits are used giving 6.9 digit accuracy. 



4.5.9 Eliminating = and : in I/O Formats 

Leading equal signs and colons in I/O formats are omitted by making the following patch: 
Loc/From 



1216/4551 
6002/4551 



To 

7600 /: 
7600 /= 



4.5. 10 Estimating the Length of User's Program 

FOCAL requires five words for each identifier stored in the symbol table and one word for 
each two characters of stored program. This may be calculated by 



5s + 2 . 1 .01 = length of user's program 
where s = Number of identifiers defined 

c = Number of characters in indirect program 

If the total program area or symbol table area becomes too large, FOCAL types an error message. 



Goldberg, B. "8-Digit Accuracy", 
Communications of the ACM 
Vol. 10, No. 2, February, 1967 
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FOCAL occupies core locations 1-330CL and 460CL 7576 fi . This leaves approximately 
700. locations for the user's program (indirect program, identifiers, and push-down list). The ex- 
tended functions occupy locations 4600-5377. If the user decides not to retain the extended functions 
at load-time, there will be space left for approximately 1100.-. characters for the user's program. 

The L-command may be used to indicate how much core is available for the user. 

4.6 FOCAL SYSTEMS 

FOCAL systems are designed to take advantage of as many PDP-8 configurations as possible. 
With this in mind, the system source language is divided into segments which, when loaded together, 
fit the needs of a user and his particular configuration. Thus, when a user changes his configuration 
or requirements, he does not need to secure an entirely new FOCAL tape but only to load a new seg- 
ment corresponding to the change in his configuration . The scheme used also has the advantage of 
simple maintenance, since changes are made to one source file for all possible systems and in some 
cases re-assembly of other segments is not needed. 

Two source segments create a FOCAL system for a 4K PDP-8. Others are used to create a 
FOCAL system with (1) ten digit arithmetic, (2) 8K memory, and (3) circular and linear graphics. 

The segments of the FOCAL system and their functions are listed in Table 4-1 . The ASCII 
source segments FOCAL. ASC and FLOAT. ASC must be assembled with all configurations and the 
resulting binary segment, FOCAL.BIN, when loaded makes a one user FOCAL system for a 4K PDP-8. 

The segment INIT.ASC is assembled alone, but when INIT.BIN is loaded with FOCAL.BIN 
into field zero it gives you the initial dialog. If the extended functions are to be retained, it is not 
necessary to load INIT at all . All corrections for machine type will be made anyway. After FOCAL 
is started and/or the dialog is completed the user may proceed to load other binary segments. 

If a user has an 8K PDP-8 and wants to create a large program with extended precision 
arithmetic, he need only load FOCAL.BIN, start, and then load 4WORD.BIN, and 8K.BIN as 
indicated in Table 4-2. If he wants to share his PDP-8 with three other people, he just loads FOCAL. 
BIN and QUAD. BIN into field one and start. 

Intra-references between segments is handled by small multiple assemblies, rather than a 
large assembly with conditionals for each possible system. For example, to obtain a binary copy of 
the segment QUAD. BIN, use PAL10 to assemble, QUAD. ASC, FOCAL. ASC, FLOAT. ASC. This 
assembly produces only the listing and binary files for QUAD which end with the PSEUDO-op's 
"XLIST" and "NOPUNCH". Tables 4-2 and 4-3 give the allowable combinations of the binary 
segments to produce legal configurations of the FOCAL system. 



4-12 



Table 4-1 
FOCAL System Source Segments 



ASCII Segment Name 


Function 


Description 


FOCAL* 


The Interpreter & TTY I/O driver. 




FLOAT* 


Modified Floating Point Package. 




4WORD 


Extended precision overlay to FLOAT (give 10 digits). 


(4.6.5) 


8K 


Allows one user to take advantage of an 8K PDP-8. 


(4.6.4) 


QUAD 


Allows multiple users (up to 4) to use FOCAL or 
8K PDP-8. 


(4.6.6) 


LIBRA t 


Allows multiple users (up to 7) to run and save 
FOCAL programs on an 8K PDP-8 with disk. 


(2.14.2) 


CLIN 


The user may have a scope to interact with FOCAL. 


(5.8) 


PENT 


A variation of QUAD allowing five (5) users. 




INIT 


The symbolic source for the initial dialog program. 





*These two segments must be assembled and loaded together for all configurations. They are 
separated for editing convenience. 



t, 



Not yet implemented. 



Table 4-2 
Allowable FOCAL Systems 



1 - Must be loaded into field one 

- Must be loaded into field zero 

Y - Command may be used if disk system is built 

N - Command is illegal 

* - Command different 


Allowed Combinations & 
Binary Segment Subsets are indicated by 

entries in vertical columns 


Minimum Hardware 
Required 


FOCAL 


1111 


4K 


INIT (optional) 







4WORD 


11 


4K 


8K 





8K 


QUAD or PENT (non-8/S) 





8K/PT0& 


LIBRA (non-8/S) 





8K/PT08s/DF32 


CLIN (optional) 


1 1 


Graphics Terminal 


LIBRARY COMMAND 
(for disk monitor) 


YYYYNN* * 


DF32 


FOCAL is always loaded first in the proper field. 
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Table 4-3 
Variations for FOCAL Systems 



Any combination of these three sets (2*2*4=16), 



a. 8K overlay 
4K 



b. Disk Monitor 
No Disk 



c. No Dialogue 

No ext. functions 
SINe, COSine only 
All ext. functions 



or QUAD four-user system or PENT five-user system (PENT is obtained by a 
modified assembly of QUAD; see listing) may be used with 

CLIN graphics (4) 
4WORD overlay 
Neither 
Both 

These are formed from only six sections of binary tapes. 

The CLIN graphics function can be used for numerical control. 

4K FOCAL can be run on the following DEC computers: 5, 8, 8/S, 8/1, 8/L, 
LINC-8, LAB-8, TSS-8, PDP-12. 

a. Load FOCAL & INIT 

b. do initial dialogue 

c. load any orall of 4WORD, 8K, CLIN. 

d . restart and use 



4.6.1 FOCAL Systems Assembly 



Systems programs 

* tc 

.RUN T PAL10 

*FOCAL. BIN, FOCAL. LST -FOCAL. ZZL, FLOAT. ZZL 

*QUAD. BIN, QUAD. LST -QUAD. ZZL, FOCAL. ZZL, FLOAT. ZZL 

Initial dialogue 

* tc 

.RUN T PAL10 

*INIT. BIN, INIT. LST -INIT. ZZL 

* 

Overlay routines 

* R PAL10 

*4WORD.BIN,4WORD. LST -4WORD. ZZL, FOCAL. ZZL, FLOAT. ZZL 
*8K. BIN, 8K. LST -8K. ZZL, FOCAL. ZZL, FLOAT. ZZL 
*CLIN.BIN,CLIN. LST -CLIN. ZZL, FOCAL. ZZL, FLOAT. ZZL 
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4.6.2 FOCAL Binary Paper Tapes 

.AS DSK D 
DSK ASSIGNED 

.AS PTP 

PTP ASSIGNED 



.R PIP 

*PTP:«/ID:QUAD.BIN 

*PTP:VlD:4WORD.BIN,8K.BIN,CLIN.BIN 

*PTP : yiD:FOCAL.BIN,INIT.BIN 

rc 



4.6.3 FOCAL Listings 



*LPT:-D:QUAD.LST,4WORD.LST,8K.LST,CLIN.LST,INIT.LST, FOCAL. LST 
*TTY:«A DTAa: 



58: FREE 


BLOCKS LEFT 


FOCAL 


.ZZL 


FLOAT 


.ZZL 


QUAD 


.ZZL 


4WORD 


.ZZL 


8K 


.ZZL 


CLIN 


.ZZL 


INIT 


.ZZL 


PAL 10 


.SAV 


JR36 




JR46 





4.7 FOCAL SEGMENTS 

4.7.1 8K Single User Overlay - 8K 

To increase the size of program, the 8K overlay uses the upper 4K for storage of the user's 
source text. The maximum number of variables does not change as they are still stored in the lower 8K. 
Load the overlay after doing the initial dialogue with the 4K version. 

4.7.2 Extended Precision Overlay - 4Word 

This overlay provides FOCAL with 10-digft accuracy when the 10th digit goes to enable. 
The overlay increases the number of words needed to store a number from three words to four words. 
The number of variables that may be stored is decreased accordingly. 

Load the overlay after doing the initial dialogue with the 4K version. 
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4.7.2.1 Double Precision Multiply in Four-Word FOCAL 

To multiply two numbers, the product of which is greater than ten digits and yet retain the 
least significant figures, use a double precision operation. 
For example, to multiply: 
M = 20243974 

by 
N = 69732824 
let MO = the 1st 4 digits of M and let Ml = the 2nd 4 digits of M. Similarly, NO and Nl are the left 
and right halves of N. 

Note the correction of an input error in the high order part of N . 

*W 
C-4WORD@l/69 

14.10 ASK l,MD f Ml f "* ,, N0 # Nl f ! 

14.20 SETA=M0*N0 

14.30 SET B=N0*M1 +M0*N1 

14.40 SETOMl*Nl 

14.50 SETZ=FITR(C*IE-4) 

14.60 SETC=C-Z*1E4 

14.70 SET B=B+Z 

14.80 SETZ=FITR(B*lE-4) 

14.90 SETB=B-Z*1E4 

14.99 TYPE !%8 / A+Z,%4 / B,C / ! 

*GO 

:2024 :3974 * :6928i5973 :2824 

= 141 16694= 7600= 2576 



4.7.3 Four User Overlay - QUAD 

QUAD allows an 8K PDP-8/1, -8/L with up to four teletypes to time-share FOCAL. In 
effect, each user has the equivalent of a 4K PDP-8 or PDP-12 with FOCAL. The QUAD overlay is 
located in the lower 4K, and the FOCAL interpreter is located in the upper 4K. Users are traded for 
one of three other users in the lower 4K. Swapping of users is based upon I/O waits and checkpoints 
in the FOCAL interpreter. 

4.7.3.1 Four User Loading and Operating Procedure 

a. Load 1st binary part into field one. (FOCAL.BIN) 

b. Load 2nd binary part into field one . (QUAD .BIN) 
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c . Load address 

7600 
and START 

.SAVE F4UB 10-21 77, 3000, 3600, 5400; 200 
.SAVE F4UA 10-13220, 14600-17577; 

(Any errors made here may require reloading field zero.) 

d. (Calling Sequence) 

.F4UA 
.F4UB 

(If any problem occurs hit stop, record the PC and restart at 200 or reload.) 

4.7.3.2 Swapping - At certain points in the FOCAL program it is a pure procedure. If swapping 
occurs at these times, then only IK of impure data needs to be saved instead of 4K. This factor of 
four considerably improves system performance. Such a point is called a checkpoint. 

Each time an operating program reaches a checkpoint the executive routine checks to see 
whether another user should be swapped in at that time. 

This check is also made if the operating program goes into a state of waiting for input-output, 
except for output during use of trace. 

4.7.3.3 Workload and Timing 

a. Swapping is done on a demand (I/O wait) and a cooperative (checkpoint) basis. 
Therefore, no clock is needed. Not having a clock reduces system overhead by about ten percent. 

b. Fully asynchronous I/O is backed up by large (over 16 characters) and uniform (easy to 
process) character buffers. Serial to parallel conversion of the bit stream is done in external hardware 
by PT08 line controllers. This reduces system load by 18 to 30 percent. 

c . If each of eight user programs takes less than 100-17 msec to generate one 8-d?git 
output string, then the system is barely output bound and no delay will be observed in response times. 
The 17 msec is average access time to the disk, and one TTY character takes 100 msec to be typed. 

4.7.3.4 Special Controls - A control-R character (TAPE) suppresses echo of input tapes except for 
the line-feed. A control-T (NOT -TAPE) or Control-C restores the echo of input characters. 

It is a good practice to punch a Control-R at the beginning of all off-line tapes. An 
alternative is simply to type Control-R manually before setting the low speed reader to RUN. 

4.7.3.5 Dialogue - There is no initial dialogue with QUAD. 
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4.7.4 Graphics for Circles and Lines - CLIN 

ACLIM - SRAPHICs OVERLAY F0f< FOCAL, 22K PAL10 V133 14-MAR«»69 16101 

/CLIN , GRAPHICS OVERLAY FOR FOCAL, 2?K 

/FINITE DIFFERENCE EQUATION OF A CIRCLE - FOR FOCAL 

/16,2 S p=X-X05 S Q s Y-Y0?s R=FS0T(Q*2+p»2 ) 
/16.3 S 2=FNEW(6.3*R*C,P,Q,X0,Y0,S/R> 
/16,4 S X0=X;S Y»=Y 

/ L I N £AR DIFFErE n CE EqUATI 0(v1 F A L I N E 

/ 1 / «1 D 1 6 '2 ,S Z = Ff *E»UR,P/R,Q/R,)(®,'iQ,V}lD 1 6,4 

6057 DXS=6057 
6053 DXL=6053 
6067 OYS=6067 



0035 » B OTTOH 

FC IN-1 
»FNTABE+14 
3437 4440 FCIN 



2035 4437 
3407 



444 M4 0iJ + 4 

444 4453 FCiN, JMS I INTEGER 

4441 7040 CMA 

4442 33«2 OCA R /SAVE THE POINT COUNT 

4443 1340 TAD XXP 

4444 3010 OCA AXIN /START DATA POINTERS 

4445 1117 TAD M5 /FOR 5 MORE ITEMS 

4446 3316 OCA CT 

4447 4537 G£T A( PUSHJ /COMPUTE EACH ARG, 

4450 1612 EVAL-1 

4451 1044 TAD EXP /FOUR FIXED POINT RESULTS 

4452 1341 TAD LP 

4453 3044 DCA EXP 

4454 4453 JMS I INTEGER 

4455 7230 CLA 

4456 100b TAD P13 /SAVE UNNORMALIZED FORM 

4457 3410 DCA I AXIN 

4460 1045 TAD HORD 

4461 3410 OCA I AXIN 

4462 1046 TAD LORD 

4463 3410 DCA I AXIN 

4464 2316 ISZ CT /TEST FOR END OF DATA 

4465 5247 JMP GETA 

4466 1046 TAD t,ORD /TEST FOR CIRCLE OR LINE 

4467 7640 S ZA CLA 
4470 5343 JMP XFCIR 
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/CUM - SkAP-IISS 0/E.RLAY FOR fOCAl,2?* PAL12) 



4471 

44 7 
447 

4474 
4475 
4476 
4477 
45 10 
45 U 
4532 
4533 
4 5 :■) 4 
45 "'5 
45D6 
4 5 3 7 
4510 
4511 
4512 
4513 
4514 
4515 



7i : J0 

3331 

70J4 
13 30 

13^2 

6053 

3330 
71'! 3 
1334 
1326 
3334 
7 3*' 4 
1333 
1325 
6067 
3333 
23*2 
5271 
5535 



XFLIN. 



CLL 
TAD 
TAD 
DC A 
RAL 
TAD 
TAD 
DXL 

oca 

CLL 
TAD 
TAO 
i)CA 
RAL 
TAD 
TAD 
DYS 
DCA 
IS? 
JrtP 

JMP 



X0. 
PI 

X01 

X00 
P0 

X00 

Y01 

01 

Y01 

Y00 
00 

Y00 

R 

XFI.IM 

I EFUN3I 



V133 14-MAR=.6<5 16:01 PAGE 2 
/VECTOR PLOT ALGORITHM 



/(6317>- FOR LAB-8 



/ ( 6307> - FOR LAB-8 



///// 



/TO 

/TO 

/TO 

/TO 

/TO 

/TO 

/AND 

/OF 

/TO 



E=FDlS<XiY) 
7 



DISPLAY A POINT X,Y| SET 

DRAW LINE X0.Y0 TO X,Y! DO , 

SET X0,YF = X,Y: DO J"6, 4 

ERASE SCREEN i TYPE "(ERASE CODE)" 

RESET PRINT ORIGIN: TYPE "(RESET CODE)" 
DRAW A CIRCLE ABOUT X0,Y0 STARTING AT X,Y 

GOING COUNTERCLOCKWISE FOR FRACTION 



A CIRCLE ALPHA 

GO clockwise: 



SET 
SET 



+ 1 »S 



SET C=ALPHA;00i6 



16 



/GROUPS 16 A N0 17 CREATE OR USE THE V A RI AB LES 

/Xi YiX0.Ylo,2,R,C#P»Q,K»AND S. 

/S MAY 8E REPLACED fly U IF DESIRED, 
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/CUM - GRAPHICS OVERLAY FOR FOCAL, 2?K PAL13 V133 14-MAR-69 16S01PAGE 3 

4516 30K-0 CT, 

4517 2320 
4520 Z030 

45?1 0030 PP< 

4322 30Z0 p 0» 

4523 302-3 p l» <4 

4 524 g ga oa» 3 

4525 3220 30, 
45?6 30J0 01* 

4527 2013 XX» 13 

4530 2102*1 X03, 

4531 002rt X01, 

4532 »013 YY 13 

4533 0330 Y00, 

4534 3020 Y01, 

4535 3323 KKi 

4536 2020 

4537 00210 

4543 4523 *XP, pp -l 

4541 3*414 LP» 14 

4542 3020 R. 



/TO USE AN „- PLOTTER, CLIN IS NOT NEEDED* SlMPL y 
/ADD THE FOLLOWING LINES TO GROUPS 16 ANO 17 » 

/1&.25 S Ks s / R 

/16.30 F Is0,6.3»R*C;S P=P-Q*K;S Q=Q*P*KjS 2»FDIS ( X0*P , Y0 + Q) 

'17.10 16.2JF I»B.RIS X0=X0+P/R«S Y0sY0+G/RjS 2 = F0 IS<X0, Y0) 

/l',20 D 16,4 

/TH E ITERATION PARAMETER "I" MAY BE TAKEN IN GREATER INCREMENTS IF THE 

/SCALE FACTOR IS ALSO CHANGED I.E. 

/,'/,,0 DO .6.3JSET Ks 4 /R 

/17,I5 FOR Is0,4,R!S X0=X0*K*P?S Y0sY0*Q»KJS 2«FDIS( X0, Y0 ) 
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/CLIN - 3KAPHICS OVERLAY FOR FOCAL, 22K PAL10 Vj.33 14-MAR-69 16 1 01 PAGE 4 



4543 
4544 
4545 
4546 
4547 
4550 
4551 
4552 
4553 
4554 
4555 

4556 
4557 
4560 
4561 
4562 
4563 
4564 
4565 
4566 
4567 

4570 
4571 
4572 



44^7 
3324 
4335 
6316 
3321 
2316 
6321 
1327 
30 Zg 
4453 
6057 

4427 
0321 
4335 
1324 
6324 
1332 
0020 
4453 
6067 
7220 

2342 
5343 
5535 



XFCIR, FINT 

FGET QO 

FMUL KK 

FPUT CT 

FGET PP 

FSU8 CT 

FPUT PP 

FADD XX 
FXIT 

JMS I INTEGER 
OXS 



/CIRCLE ALGORITHM 



Fl 



FGET 



PP 
KK 
QQ 
QQ 
YY 



/(6317) - FOR LAB-8 
/C L EA R s AC 



FMUL 

FAOO 

FPUT 

FADD 

FXIT 

JMS I INTEGER 

DYS 

CLA 

IS2 R 
JMP XFCIR 
JMP I EFUN3I 



/(6307) - FOR LAB. 8 



4600 
3031 



NOPUNCH 
PAGE 
HELD 1 
XLIST 
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4.8 FOCAL DEMONSTRATIONS 

4.8.1 One-Line Function Plotting 

This example demonstrates the use of FOCAL to present, in graphic form, some given function 
over a range of values. In this example, the function used is 

y =30 + 15(SIN(x))e "* lx 
with x ranging from to 15 in increments of .5. This damped sine wave has many physical applications, 
especially in electronics and mechanics (for example, in designing shock absorbers for automobiles). 

In the actual coding of the example, the variables I and J were used in place of x and y, 
respectively; any two variables could have been used. The single line 08.01 contains a set of nested 
loops for I and J . The J loop types spaces horizontally for the y coordinate of the function; the I loop 
prints the * symbol and the carriage return and line feeds for the x coordinate. The function itself is 
used as the upper limit of the J loop showing the power of FOCAL commands. 

The technique illustrated by this example can be used to plot any desired function. Although 
the * symbol was used here, any legal FOCAL character is acceptable. 

08.01 F 1=0, .5,15; T "*",!; F J=0,30+15*FSIN(I)*FEXP <-.l*I >;T " " 

* 

* 

*DO 8.01 



* 



* 



* 

* 
* 



* 



* 



* 



* 
* 



* 



* 



* 



* 



* 
* 
* 
* 



* 
* 
* 

* 



* 
* 
* 
* 

* 
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4.8.2 How To Demonstrate FOCAL's Power Quickly 

a . Load the program and start at 200. 

b. Explain that the initial dialogue gives you options. 

c. Try some other response like MAYBE ) . 

d . Now answer YES J . 

e. The preceeding has demonstrated the interactive capabilities of the language and the 
compromises that it permits. 

f . In a 4K machine (4096 words) FOCAL gives the user 15 functions and uses only 3K, 
leaving enough room to solve up to 6th order simultaneous equations. 

g . The asterisk (*) means that FOCAL can now respond to your commands, 
h . The basic command is TYPE: 

TYPE 5 t 2 + FSQT (5) j 

i . Now compute 5 factorial: 

*SET ALPHA-1 

*FOR 1=1, 5; SET ALPHA=ALPH*I 

j . The answer is ready when the next asterisk is typed out: 

Then type 

*TYPE ALPHA 

for the answer . 

k. Now if you are using a PDP-8 or -8/1, demonstrate a large number: 

*SET A=l 

*FOR 1=1, 300; SET A=A*I 

some time later 

"TYPE A 

= 0.395 615 

I . Now generate a plot via a stored program: 

*1.1 FOR Y=0, .5, 15; TYPE ! ; D02 

*1.2 QUIT 

*2.1 FOR XO, 12+10*FSIN(Y) ; TYPE " " 

*2 .2 TYPE " * " 

*GO 

m. Now use the MODIFY Command to change 10* to FEXP (Y/6)* and try again. 

4.9 FOCAL Versus BASIC 

FOCAL is superior to BASIC, not only in terms of computing power and ease of use, but also 
in maximum use of the memory space, which is so often limited in small computer systems. 



4-23 



FOCAL contains all the power of BASIC, and in addition provides the following capabilities: 
a . Control of the output format (i .e. , precise figure location on a page and graphical 
representation); 

b. An "immediate" mode, allowing the system to operate as a desk calculator and to 
execute simple problems without writing a program; 

c. The capability of executing individual "stored program" statements in the immediate 
mode for debugging and verification; 

d . Bui It-in symbolic editor capable of searching program statements for specified characters 
and inserting and deleting characters within a statement, thereby eliminating the retyping 

of the entire program statement; 

e. Multiple statements may be grouped on each line for more logical ordering of the pro- 
gram; 

f . True multiple level re-entrant subroutining capabilities; 

g . A trace feature which types out selected segments of a program (as the program is 
executed) to pin point exactly where a program error occurred; 

h . Commands may be abbreviated to one letter; this eliminates wasted typing time when 
writing a program and increases the available storage space for use by additional program 
statements; 
i . Programs may be saved on disk and chained together; 

j . Point plot displays, vector displays, X, Y plotters, and analog to digital converters 
may be operated by FOCAL; this capability can be used in an on-line, real-time fashion; 

k. FOCAL SYSTEMS allow use of several hardware configurations: 8K, 10 digit, display, 
and multi-user. 
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CHAPTER 5 
ADDITIONAL FOCAL APPLICATIONS 

5.1 FOCAL FOR THE LAB-8 

5.1.1 Standard 

Two commands have been added to FOCAL to implement the A to D converter and the 
oscilloscope display on the AX08. 

a. A to D Command: 

FADC(N) where N is the channel number in decimal . 

The command: 

SET Z = FADC(28) 

gives the variable Z a value of octal channel 34 depending on the position of the upper 
righthand potentiometer. The other 3 knobs are channels 29, 30 and 31 . A subroutine 
in FOCAL to read the A to D in volts is as follows: 

15.1 ASK CHAN;C-0,1,2,3 

15.2 SET X=FADC(28+CH) 

15.3 IF (X-256)15.Y,15.4;SET X=X-4096 

15.4 SET X-X/255 

The input variable is CH for values of to 3, and the output variable is X with values 
±/volt. 

b. Display Command: 

The display command has been modified to use only one statement to define X and Y, 

SETZ = FDIS(X,Y). 

will display a point on the oscilloscope screen defined by points X and Y. X can range 
between 0-51 1 and Y from -255 to +255. The variable Z is a dummy. (It is given the 
value of the integer part of Y.). (c.f., Section 5.8 for circle and sector algorithms.) 

CAUTION 

Since the ADC of the AX08 hardware is an integral part 
of the display logic, using both display and A and D, 
may result in splatter of the Y direction of the oscillo- 
scope screen . 

5.1 .2 Additional (Possible) FOCAL Functions for AX-08 

FADC (n): Converts (decimal) channel n. Returns result of conversion. 
FDIS (x,y): Loads display X and Y; intensifies point. 
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FTIM (n): Delays n RC clock pulses (n < 4096) 

Returns * of 100 |js increments since last used. 
Xtal clock interrupt is enabled. 

Interrupt servicing for Xtal clock as 

follows: 

SKXK 

JMP OTHERS 

CLXK 

ISFTIME+1 

JMP .+3 

ISF TIME 

NOP 

ION 

JMP 10 

Clock flag servicing will tie up 20% of processor time. 

When FTIM is called, do the following sequence: 

TAD (1002) /enable Xtal clock, start RC clock 
OTEN 
get n 
SNA 

JMP XTIME 
CMA I AC 
DC A RCNTR 
CLRK 
SKRK 

JMP .-1 
ISZ RCNTR 
RMP .-4 
XTIME, PUT TIME, TIME +1 in FLAC 

DCA TIME 
DCA TIME +1 
return to FOCAL 

FNEW(a, b, c) 

a = 0: Turn on relays indicated by b (b < 7) 

Turn off relays indicated by c (c < 7) 
as follows: 

get b 

RAL; RTL 

AND (70 

OTEN 

get c 

RTL; RAL 

AND (70 

CMA 

ZTEN 

CLA 

return to FOCAL 

a = 1: "and" external register with mask 

b: mask (octal) 

c: ignored 
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Get characters of b 

interpret as octal * 

DC A XMASK 

XRIN 

AND MASK 

XRCL 

CMA J AC 

TAD MASK 

SNA CLA 

IAC 

store in FLAC 

return to FOCAL 

a = 2: "or" external register with mask 

b: mask (octal) 

c: ignored 

get characters of b 

interpret as octal " 

DC A XMASK 

XRIN 

AND MASK 

XRCL 

SZA CLA 

IAC 

store in FLAC 

return to FOCAL 

5.2 FNEW FOR DATA ARRAYS* 

A new function for 8-K FOCAL is available which uses field one to store data arrays in 
floating double precision, single precision, and signed integer format. This facility is added to 
FOCAL via the function call FNEW. The function may be called recursively to any level, and all 
of the features of FOCAL are retained. In addition an ERASE or ERASE ALL command will not wipe 
out the array. Hence, variables may be stored for use in successive programs. 

5.2.1 Storage Requirements 

Fits into unused locations in floating point package 

5.2.2 Usage 

5.2.2.1 Loading - Load after FOCAL has been loaded into the machine (and the initial dialogue is 
executed). Load the first part of the overlay using the Big Loader. If a single precision floating 
array is desired press CONTINUE. A patch should now be read in to allow a 1980 element array in 

"Originated by University of Georgia, program not supported by DEC. 
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single precision floating point. If an integer array (maximum number = 3047) is desired press 
CONTINUE. A patch will now be read in to allow a 3965 element signed integer array. 
Restart FOCAL at 200. 



5.2.2.2 Calling Sequence - To store a variable Z as array element J: 

* S X=FNEW (J,Z) 

or 
*4.3 SX=FNEW(J,Z) 
In addition, X will be set equal to Z. 
To call the array element K and set Z equal to this element: 

* S Z=FNEW(K) 

i .e. , if there is only one argument the instruction is interpreted as a "GET". If there are 
two arguments it is interpreted as a "PUT". 



5.2.3 Recursive Calling 

The function FNEW may be called recursively at any level . viz. 

* S Z=FNEW [J, FNEW(J+10)] 

sets Z=FNEW(J+10) and stores FNEW(J+10) in array element J. 

* 3.2 S Z=FDIS (J*1000) , FDIS(FNEW(J)*NORM) 
the arguments may be any arithmetic expression. The following are valid: 

* S Z=FNEW (J*10-3, FEXP(X 2 )*Y) 

* S Z=FNEW (J,FNEW (K)*FEXP(FNEW(L))) 



5.2.4 Restrictions 

Double precision floating: 
Single precision floating: 
Integer Array: 



0<J < 1320 

0<J <1979 
0< J < 3965 
IZI <2047 



(23 bits of significance) 
(1 1 bits of significance) 
(1 1 bits of significance) 



5.2.5 Description 

The function FNEW protects the binary loader in upper core. The function checks to see if 
J is too large, but does not check to see if Z is larger than 2047 in the integer array case (c.f., array 
overlay). 

The user, of course, may subdivide this array into any number of smaller arrays, keeping 
track of his own indices. 
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* 



* 



5.3 DYNAMIC INTERRUPT PROCESSING VIA FOCAL, 1969 

This simple patch allows real-time interrupts to initiate execution of a specific FOCAL 
subroutine (e.g. Group 31) which gains control (i.e., D031) when an interrupt occurs from an external 
device. The FOCAL subroutine could sample various channels of the A/D converter, set a few con- 
stants, then turn off the interrupt, and return to the main FOCAL program. The main FOCAL program 
will carry out the analysis or output of data during the time between these external device interrupts. 
The external device could even be an animal and the time between interrupts will be asynchronous and 
long (between 1 and 1000 seconds), or the external device will be a clock, in which case the time 
between interrupts will probably not be less than 100 ms or greater than 1 sec. 

/patch to interrupt processor 
(tag assignments from symbol table) 
EXIT /replaces H.S. Reader* 

IOT1 /skip if device 

JMP.+3 

NOP /"HINBUF" is cleared 

PCI /checkpoint in main program 

JMP I 175 / valid for 8K, also 

*167 

DIPCHK /Dynamic Interrupt Check 

*HINBUF 

1 /initialized to non-zero 

*HREAD 

DIPCHK, TAD HINBUF 
SZA CLA 
POPJ 

TAD PC /save FOCAL register 

PUSHA 

TAD SPCLN /(your group # ) 
DCA LINENO 
DCA NAGSW 
ISZ HINBUF 
PUSHJ 

DO+1 
POPA 
DCA PC 
POPJ 
SPCLN, 7600 /(group 31) 

The routine in group 31 returns control by "RETURN". This feature does not operate until 

main program is started. It will operate during execution of a direct command. 
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5.4 SIMULTANEOUS EQUATIONS' SOLUTIONS 

This program will work with a set of simultaneous linear equations (in 4K. FOCAL 6 equations 
is the limit) and output the solutions. To do this the program requests a value "L", the number of equa- 
tions and variables to be processed. The program then requests the coefficients and constants for each 
equation, in a matrix like format. The solution values are typed out in a column with the names "X(0) M 
through "X(L-l)". The program is available through DECUS. 

5.5 FAST FOURIER TRANSFORMS PROGRAMS 

The FAST FOURIER TRANSFORMS Program is designed to accept samples of a complex wave 
pattern as input and, through a FOURIER analysis, describe its component sine and cosine waves in 
terms of amplitudes and frequencies. 

The user inputs a number "N", which must be a power of two, (in 4K. FOCAL, "4" is the 
limit) and which describes the number of samples to be used in the analysis. Next the samples, which 
are wave height measurements taken at regular intervals, are requested. Output is in the form of two 
columns (side by side), the left of which describes the cosine wave components while right hand 
column describes the sine wave components. 

It should be noted that because the number of samples is always a power of two, the number 
of complex multiplications is cut drastically. For this reason computation time is also greatly reduced. 

NOTE 

In order to use this program, the extra extended 
function FX(A,B) must be loaded into memory 
via the BIN loader. 

FAST FOURIER TRANSFORMS 

W 
C-FOCAL.,1968 

01.08 A "POWER OF 2 ",NU 

01.10 S N=2TNU;S TP=2*3.14159/N 

01.18 S S=N/2:, L=1;S Q=6-1;S H=1-NU 

01.20 F I10,N-1;A !;A !,XR(I);S XI(I)=0 

01.22 S SR=XR(Q+S)+XR(Q);S XR(Q+S)=XR(Q)-XR(Q+S);S XR(Q)=SR 

01.241 (Q) 1.26,1. 26;SQ=Q-1;G 1.22 

01.26 1 (L-NU) 1.28,1.54,1.28 

01.28S L=L+1;S S=S/2;S H=H+1;S P=N-1;S Z=l/(2t(-H)) 

01.32 S C=l 

01.34S U=FITR(P*Z);S K=FX(NU,U)*TP 

01.36 S CO=J=COS(K);S SN=FSIN(K) 

01.38 S GR=CO*XR(P)+SN*XI(P);S GI=CO*XI(P)-SN*XR(P) 
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01.40S Q=P-S;S SR=GR+XR(Q);S SI=GI+XI(Q);S XR (Q)=XR(Q)-GR 

01.42S XI(Q)=XI(Q)-GI;S XR(P)=SR:, XI(P)=SI 

01 .46 S P=P-1; I (-FABS [C-S]) 1.48; I (P-S+l) 1.52,1.26,1.52 

01.48S C=C+1;G 1.34 

01.52 S P=P-S;G 1.32 

01.54 F I=0,N-1;S K=FX(NU,I);T !,%3.2,2*XR(K)/N, " ",2*XI(K)/N 

* 

*C -TRANSFORM OF INTERFERENCE PATTERN FORMED BY MIXING A SINE 

*C-WAVE OF AMPLITUDE 1 .0 AND A COSINE WAVE OF AMPLITUDE 1 .5 
* 

*GO 

POWER OF 2 :3 

1.5 

1.768 

1 

-.353 

-1.5 

-1.768 

-1 

.353 
-MO. 00 =+0.00 

=+1 .50 =-1 .00 

=+0.00 =+0.00 

=+0.00 =-0.00 

=+0.00 =+0.00 

=+0.00 =+0.00 

=+0.00 =+0.00 

=+1.50 -1-1.00* 



/FNEW(u,v) forFFT 
*BOTTOM 

4377 
*FNTABF+1Y 

XFX 
*4400 
XFX, JMS I INTEGER 
Dca U 
PUSHJ 

EVAL-1 
JMS I INTEGER 
CIA 

DCA T2 
DCA LORD/low order 

TAD U 

CLL RAR 

DCA U 

TAD LORD 
RAL 

DCA LORD 

ISZ T2 

JMP .-7 
JMP I EFUN3I 
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5.6 TRAVEL VOUCHER TO EXPENSE VOUCHER CONVERSION PROGRAM 

Though FOCAL is not a business oriented language the use of FOCAL in business applications 
is not impossible. Such a use is seen in the TRAVEL VOUCHER TO EXPENSE VOUCHER CONVERSION 
program with which the user may ease the task of reporting his expenses after a business trip. 

Working from the input of the number of the days using the expense account and the categor- 
ized input of the expenses encountered (all amounts must be entered in terms of cents rather than dollars) 
during that period, the computer tallies and itemizes 

a . the daily expenses and 

b . the totals of the expenses over the entire period . 
The data, thus summarized, are very easily transcribed onto an employee expense voucher. 

TRAVEL VOUCHER TO EXPENSE VOUCHER 
CONVERSION PROGRAM 

C-FOCAL., 1969 

01 .01 T ! ! "EXPENSE ACCOUNTER (TYPE ALL AMOUNTS IN PENNIES)" 

01 .05 ERASE 

01.10 ASK %6.02,!"HOW MANY DAYS?" DAYS,! 

01 .20 IF (DAYS) 1 . 1 , 1 . 1 ; FOR 1=1 ,DAYS; DO 5 

01 .40T ! ! " THE TRIP TOTALS ARE";F 1=1 ,30;T " " 

01.41T "GRAND"! 

01 .60 SET LO=LT; SET ME=ET 

01 .70 SETOJ=OT; SET MI=MT; DO 7 

01.80 TYPE " $"!!!!!! 

01.90G 1.05 

05.10 ASK !!!"BRKFST" Bl 

05.20 ASK !"LUNCH " B2 

05.30 ASK ! "DINNER " B3 

05.40 ASK ! "SNACKS " B4 

05.50 ASK ! "MILES TRAVELED ? "B5; SET B5=B5*9; TYPE " $ B5/100; DO 6 

05.60 ASK !"HOTEL" B6 

05.70 ASK ["OTHER " B7 

05.73 ASK !"TELE " B8 

05.75 A !"TAXI "CI 

05.76A !"PARKN "C2 

05.77A !"TOLL"C3 

05.85 ASK !"MISC. " B9 

05.90 TYPE !"THE DAILY TOTALS ARE"! 

05.91 SET LO=B6; SET ME=B1+B2+B3+B4 

05.92 SET OJ=B5-tCl; SET MI=B9+B8W+C2-K:3 

05.93 TYPE "DAY NO."; DO 7.1 

05.94 TYPE !%3,I," "; DO 7.2; DO 7.3 

05.95 SET LT=LT+LO; SET ET=ET+ME 

05.96 SET OTOT+OJ; SET MT=MT+MI 
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06.10 ASK " MISC. TRAV. ? "B6; SET B5=B5-tB6 

07.10T " LODGING MEALS OTHER TRAV. MISC. 

07.15 T ! 

07.20T %8.02,LO/100," "ME/100," "OJ/100," "MI/1 00, 

07.30 T (LO+ME+OJ+MI)/100 
* 



TOTAL 



EXPENSE ACCOUNTER (TYPE ALL AMOUNTS IN PENNIES) 
HOW MANY DAYS ? :2 



BRKFST 


:150 










LUNCH 


:170 










DINNER 


:645 










SNACKS 


:35 










MILES TRAVELED ? :36 










$=+ 3.24 MISC 


. TRAV. ? 


:0 






HOTEL 


1400 










OTHER 













TELE 


40 










TAXI 













PARKN 


250 










TOLL 













MISC. 
THE DAIL 




Y TOTALS ARE 










DAY NO 


LODGING 


MEALS 


OTHER TRAV. 


MISC 


TOTAL 


=+ 1 


=+ 14.00 


=+ 10.00 


=+ 3.24 =+ 


2.90 =+ 


30.14 


BRKFST 


:98 










LUNCH 


:192 










DINNER 


:650 










SNACKS 


:30 










MILES TR> 


WE LED ? :23 










$=f 


2.07 MISC. 


TRAV. ? 


:0 






HOTEL 


:1400 










OTHER 


:398 










TELE 


:285 










TAXI 


:0 










PARKN 


:250 










TOLL 


:0 










MISC. 
THE DAIU 


:0 
/ TOTALS ARE 










DAY NO . 


LODGING 


MEALS 


OTHER TRAV. 


MISC 


TOTAL 


=+ 2 
THE TRIP - 


=+ 14.00 
rOTALS ARE 


=* 9.70 


=+ 2.07 =+ 


9.33 =+ 


35.10 
GRAND 


L 


.ODGING 


MEALS 


OTHER TRAV. 


MISC 


TOTAL 


=+ 2 


8.00 =+ 


19.70 


=+ 5.31 =+ 


12.23 =+ 


65.24 $ 
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5.7 TWINS DEMO 

The TWINS DEMO Program is an Interesting experiment in the applications of plotting with 
a visual scope display unit. It must be noted that several functions must be loaded into memory before 
this program will operate. This program is an integral part of curve fitting. The Twins Demo requires 
V68/1 Control with Tektronix 61 1 Scope . (i.e., 340 control) 

TWINS DEMO 

W 

C-FOCAL., 1969 

01 .05S A=FDIS ( ) +FDXS () +FNEW(2) + FNEW (256) 

01.10S A=.2;S SW=19 

01.70F T=0,.05,6.284;S T2=T+3.14159/4;DO 1 .8;DO 15 

01.75 G 2.1 

01 .80S R=4*FSIN(T) +4;S X=8+R*FCOS(T2);S Y=32+R*FS!N0"2) 

02.10 F Y=28.5,A,32;S K=( (Y-30.5)/l .5) t 2;S X=9-(K*K-K);DO 15 

03.10 F X=7.4,A,10.5;S Y=26.5-( (X-9) f2)/2;DO 15 

04.10 S X=10.5;F Y=17,2*A,24.8;DO 15 

05.10 F X=7 .2*A,8;S Y=22-7*(X-7); DO 15 

06.10 F X=10.5,A,15;S Y=26-FSOT(5*(X-10));DO 15 

07.10 F X=11.5,A,14.5;D 8.5 
07.20 F X=14.5,.2*A,15;D 8.5 

08.10 F X=3,A,4.6;DO 8.4 

08.20 F X=ll,A,12;DO 8.4 

08.30 G 9.1 

08.40 S K=X-7;S Y=12+(K*K)/4;DO 15 

08.50S Y-21-FSQT(6.25-(X-12.5)t2);D 15 

08. 60S Y=(X-7)?2-l;D 15 

08. 70S X-5+FSIN(3.U159*(Y-12)/7);D 15 

09.10F Y=0,2*A,16;S X=12-( ( Y-8) T2)/64;DO 15 

10.10 F X=2,A,4.5;S K=X-3;S Y=K*(K*(.47*K-.5)+l .03)+26;DO 15 

11.10 F X=2,(.2*A),2.85;D8.6 
11.20 F X=4.7,.2*A,6;D 8.6 

12.10F Y^.5,2*A,12;D8.7 

12.20F Y=15,2*A,25;D8.7 

13.10F X=5.3,.3*A,6;S Y=-7*(X-6);DO 15 

14.10F Y=12,2*A,24;S K=( (Y-15.5)/ll) f2;S X=5.5+12.5*(K*K-K);DO 15 

14.20F Y=4,2*A,12;S K=Y-8.5;S X=8.1-FSQT(27-K*K);DO 15 

14.30R 

NOTE 

Group 15 must be supplied to scale X, Y and call ap- 
propriate display for the device, (c.f ., Section 5.8) 
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APPENDIX A 
FOCAL COMMAND SUMMARY 



Command 



TYPE 



WRITE 



IF 



Abbr Example of Form 

T TYPE FSQT (AL t 3+FSQT (B) ) 

TYPE "TEXT STRING"! 

W WRITE ALL 

WRITE 1 
WRITE 1.1 
I IF (X) 1.2,1.3,1.4; 



Explanation 

Evaluates expression, types out =, 
and result in current output format. 

Types text . Use ! to generate 
carriage return line feed. 

FOCAL prints the entire indirect 
program . 

FOCAL types out all group 1 lines. 

FOCAL prints line 1 .1 

Where X is identifier or expression, 



Control is transferred to the first, second, or third line number if (X) is less than, equal to, 
or greater than zero respectively. If the semicolon is encountered prematurely then the remainder of 
the line is executed. 



MODIFY 



M 



MODIFY 1.15 



Enables editing of characters on 
line 1 .15 



The next character typed becomes the search character. FOCAL will position itself after 
the search character; then the user may 

a. type new text, or 

b. form-feed to go to the next occurrence, or 

c. bell to change the search character, or 

d. rubout to delete backwards, or 

e. left arrow to kill backwards, or 

f . carriage return to end the line, or 

g . line-feed to save the rest of the line. 



QUIT 


Q 


QUIT or * or control-C 


RETURN 


R 


RETURN 


SET 


S 


SET A = 5/B * SCALE (3) 


ASK 


A 


ASK ALPHA (I +2 * J) 



Returns control to user. 

Terminates DO subroutines 

Substitution statement 

FOCAL types a colon for each 
variable; the user types a value to 
define each variable. 
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Command 



Abbr 



Example of Form 



Explanation 



COMMENT C 

CONTINUE C 

DO D 



ERASE 



FOR 



GO 
GOTO 



G 
G 



C - compute area 

C - ignore temporarily 
DO 4.14 
DO 4 

DO ALL 

ERASE 
ERASE 2 
ERASE 2.1 
ERASE ALL 
FORI=x,y,z; TYPE I 



GO 
GOTO 3.4 



If a line begins with the letter C, 
the remainder of the line will be 
ignored . 



Execute line 4.14; return 

Execute all group 4 lines, return 
when group is expanded or when a 
RETURN is encountered. 

Execute entire indirect text as a 
subroutine. 

Erases the symbol table. 

Erases all group 2 lines. 

Deletes line 2.1 . 

Deletes all user text. 

The command string following the 
semicolon is executed for each value; 
x,y,z are constants, variables, or 
expressions. x=inirial value of I, 
y=value added to I until I is greater 
than z. y is assumed =1 if omitted. 

Starts indirect program at lowest 
numbered line number. 

Starts indirect program at line 3.4 



C - The Fourteen (14) Functions are 



FSQT ( 




- Square Root 


FABS ( 




- Absolute Value 


FSGN 




- Sign Part of the Expression 


FITR 




- Integer Part of the Expression 


FRAN 




- A Noise Generator 


FEXP 




- Natural Base to the Power 


FSIN 


)and 


-FCOS ( ), FATN ( ) 


FLOG 




- Naperian Log 


FDIS 


;x,y) 


- Scope Functions 


FADC 




- Analog to Digital Input Function 


FNEW 




- User Function 


FX 




- Extra User Function 



Trig Functions 
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APPENDIX B 
ERROR DIAGNOSTICS* 



Table B-l 
Error Diagnostics of FOCAL, 1969 



Location Code Meaning 



900.00 Manual Start given from console. 

?01 .00 Interrupt from keyboard via control-C . 

0250 701.40 Illegal step or line number used. 

0316 701.78 Group number Is too large. 

0340 701.96 Double periods found in a line number. , 

0351 701.: 5 Line number is too large. 

0362 701., -4 Group zero is an illegal line number. 

0440 702.32 Nonexistent Group referenced by 'DO 1 . 

0464 702.52 Nonexistent line referenced by 'DO' . 

0517 702.79 Storage was filled by push-down list. 

0605 703.05 Nonexistent line used after 'GOTO' or 'IF'. 

0634 703.28 Illegal command used. 

1047 704.34 Left of " = " in error in 'FOR' or 'SET'. 

1064 704.52 Excess right terminators encountered. 



1074 


704.60 


Illegal terminator In 'FOR' command. 


1147 


704.: 3 


Missing argument in Display command. 


1260 


705.48 


Bad argument to 'MODIFY'. 


1406 


706.06 


Illegal use of function or number. 


1466 


706.54 


Storage is filled by variables. 


1626 


707.22 


Operator missing in expression or double 'E'. 


1646 


707.38 


No operator used before parenthesis . 


1755 


707. :9 


No argument given after function call . 


1764 


707. ;6 


Illegal function name or double operators used. 


2057 


708.47 


Parenthesis do not match . 


2213 


709.11 


Bad argument in 'ERASE'. 


2551 


?10.:5 


Storage was filled by text. 


2643 


711.35 


Input buffer has overflowed. 


5042 


720.34 


Logarithm of zero requested . 


5644 


723.36 


Literal number is too large. 


6543 


726.99 


t Power is too large or negative. 


7111 


728.73 


Division by zero requested. 


7405 


730.05 


Imaginary square roots required. 




731. <7 


Illegal character, unavailable command, or unavailable 
function used. 



*The above diagnostics apply only to the version of FOCAL, 1969, issued on tape DEC-08-AJAE-B 
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OBTAINING ERROR CODES VIA ODT36 

To obtain error codes via ODT36, proceed as follows: 

a. Start ODT at 3600. 

b. User types underlined letters: 



(change, from, 


to) 


4320/1357 


1275 (line feed) 


4321/4745 


3067 (line feed) (LINENO) 


4322/1675 


4552 (line feed) (PRNTLN) 


4323/4246 


7000 (carriage return) 


63/2676 


1355 (C.R.) (OUTDEV, OUTL) 


then 




M 7777 7777 (line feed) 


4273/0001 


4400 (C.R.) 


4565W 


(ERROR 2) 



Calling addresses and error codes will be printed here. The first two and last error codes 
(00.00,01 .00,31 . <7) are always the same. 



B-2 



APPENDIX C 
EXPLANATION OF NEW INSTRUCTIONS 



C.l 



NEW INSTRUCTIONS (see Table C-l) 



C.l .1 



Push Down List Instructions 



The user's push down list begins at the start of the floating point package and grows up 
toward the last variable. The initial value of the push down list pointer is contained in location 
"BOTTOM". The pointer is kept in an auto-index labeled "PDLXR". The instructions used to manage 
the list are given below: 



PUSHA 

POPA 

PUSHF 



POPF 



PUSHJ 



POP J 



places the contents of the AC onto the list as the current entry 

adds the current entry of the push down list to the AC, 

saves a group of data, normally a floating point entry. 
This instruction is followed by a pointer to a 3 word (or 
4 word) group of data . These 3 or 4 words are placed 
on the push down list as the current entry. 

restores a 3 or 4 word group of data from the current 
entry on the push down list according to the pointer 
which follows the instruction. The location "MFLT" 
contains either -3 or -4 and determines the number 
of words affected by "PUSHF" and "POPF". 

calls subroutine which is pointed to by the word follow- 
ing the instruction. The return address is placed on the 
push down list as the current entry. 

the current entry is used as a return address from a sub- 
routine. 



C.1.2 



Character Handling Instructions 



These instructions are used to pick-up, save, and print characters for processing by FOCAL. 
Characters are fetched from the user's storage area or from the ASR-33 input buffer. Character con- 
version between 8 and 6 bits and the trace feature are handled by these routines. 



PRINTC 



READC 



PACKC 



is used to print a character. If the AC is zero upon 
entry then the character in "CHAR" is printed. If the 
AC is non-zero, then the contents of the AC is printed. 

Reads a character from the user's input buffer (ASR-33 
input) and echos all characters except line feeds and 
rubouts. The character is placed into "CHAR". 

places the 8-bit character in "CHAR" into the user's 
storage area . If the character is a rubout the previous 
character is deleted from the user's area and a back- 
slash is echoed via "PRINTC". The character is 
C-l 



GETC 



SPNOR 



converted into 6-bit code. The auto index 
"AXIN" and the flip-flop "XCTIN" are pointers 
to the user's storage area. 

this instruction fetches the next character from the 
right or left side of the word pointed to by "AXOUT" 
and "XCT" and places it into "CHAR". If a question 
mark character is detected the dump switch "DMPSW" 
is flipped. If the dump switch is on then the character 
in "CHAR" is printed via "PRINTC". 

Blanks and leading zeroes are ignored by repeated 
calls to "GETC". 



C.1.3 Character Testing Routines 

These guide the interpreter through the source text. They are testing routines used through- 
out FOCAL in interpreting the program and in other instances. 



SORTC 



SORT J 



TESTC 



TESTN 



TSTLPR 



the character in "CHAR" is classified according to 
an ASCII list which is pointed to by the location follow- 
ing the instruction. If the character is found in the list 
an exit is made to the location following the list pointer. 
If no character is found exit is made to the second location 
following the list pointer. If the character was found in 
the list then "SORTCN" contains the position relative to 
zero in the list searched. The list is terminated by a negative 
word. 

the character in "CHAR" or in the AC is classified accord- 
ing to a list as per "SORTC". If the character is found in 
the ASCII list, then a jump to an address is made from a 
second list. The second list is pointed to by the 2nd 
location following call . If the character is not found then 
exit is made as per "SORTC". "SORTCN" is not changed, 
however . 

this instruction fetches the next non-space and classifies 
it as a terminator, number, function, or letter. The instruc- 
tion then skips zero, one, two or three cells accordingly. 

"CHAR" is classified according to whether it is a period 
(no skip), number (skip two), or other (skip one) . If 
"CHAR" is a number then its binary value is in "SORTCN". 

This instruction skips the next instruction if the AC contains 
a left parenthesis. 



C.I .4 Line Number Handling Instructions 

This group is used in manipulating line data and line numbers. 
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TSTGRP 



PRNTLN 



GETLN 



FINDLN 



ENDLN 



If the group of the line number In the AC Is equal 
to the group on the line in "LINENO" the next 
instruction is skipped. 

the coded line in "LINENO" is printed as a decimal 
fraction with group number and the step number 
separated by a decimal point. 

"SPNOR" is called and a line number is built in 
"LINENO" via calls to "GETC". "NAGSW" is set 
to indicate whether the line number was a group, line, 
or "ALL" designator. 

the line number coded in "LINENO" is searched for 
in the user's text area. If the line is found, the auto- 
index "AXOUT" and "XCT" are set to point to the 
line's text and an instruction is skipped. If the line 
is not found, the pointer "AXOUT" is set to point 
to the next higher line and no instructions are skipped. 
"THISLN" points to the line found on the next larger 
line and "LASTLN" points to the previous/less 
line. 

"ENDLN" links the line in the user's storage area 
to the rest of his text. It uses the result of the "FINDLN" 
instruction to accomplish this. The new end of the user's 
buffer is set-up in "AXIN". This command is used for 
insertion of new text, reconnecting after a deletion, 
and reconnection after Modify. 



Table C-l 
New Instructions 



PUSHJ = JMS I . 


/RECURSIVE SUBROUTINE CALL 


XPUSHJ 




POPA = TAD I POLXR 


/RESTORE AC 


POPJ =JMP I . 


/SUBROUTINE RETURN 


XPUPJ 




PUSHA-JMSI . 


/SAVE AC 


XPUSHA 




PUSHF=JMSI . 


/SAVE GROUP OF DATA 


PD2 




POPF = JMS I . 


/RESTORE GROUP 


PD3 




GETC = JMS I . 


/UNPACK A CHARACTER 


UTRA 




PACKC = JMS I . 


/PACK A CHARACTER 


PACBUF 




SORTJ = JMS I . 


/SORT AND BRANCH ON AC OR CHAR 


SORTB 




/NUMERICAL LIST -1 




/ADDRESS LIST - NUMERICAL LIST 
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Table C-l (Cont) 
New Instructions 



SORTC=JMSI . 

XSORTC 
PRINTC = JMS I . 

OUT 
READC=JMSI . 

CHIN 
PRNTLN = JMS I . 

XPRNT 
GETLN = JMS I . 

XGETLN 
FINDLN - JMS I . 

XFIND 
ENDLN = JMS I L 

XENDLN 
RTL6=JMS I . 

XRTL6 
SPNOR = JMS I . 

XSPNOR 
TESTN = JMS I . 

XTESTN 
TSTLPR = JMS I . 

LPRTST 
TSTGRP = JMS I . 

GRPTST 
TESTC = JMS I . 

XTESTC 
ERROR2 = JMS I . 
ERROR3 = JMS I . 
ERROR4 = JMS I . 

ERR2 



/SORT CHAR 

/PRINT AC OR CHAR 

/READ ASR-33 INTO CHAR AND PRINT IT 

/PRINT C (LINENO) 

/UNPACK AND FORM A LINENUMBER 

/SEARCH FOR A GIVEN LINE 

/INSERT LINE POINTERS 

/ROTATE LEFT SIX 

/IGNORE SPACE AND LEADING ZEROS 

/PERIOD: OTHER: NUMBER 

/SKIP IS 5 <SORTCN < 11 (I . E. AN L-PAR) 

/SKIPIFG(AC) = G (LINENO) 

AERM; NUMBER; FUNCTION; LETTER 

/EXCESS SOMETHING ERROR 
/MISCELLANEOUS ERROR 
/FORMAT ERROR 
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APPENDIX D 
FOCAL CORE LAYOUT 



Table D-l 
Focal Core Layout-Usage 



Mnemonics 



What 



ZERO 

START 

BUFBEG 

BEGIN 

FEXP 

(BET 2+ 3) 
ARTN 

(FLAG 3+1) 
FCOS 

(FLOA + 11) 
(TEMPO + 1) 
DECONV 

(INFIX +5) 
FLOUTP 
(OUTOG+4) 
FLINTP 

(P43+1) 
FPNT 

ACMINS 

(RAR1+1) 
DNORM 

(BUFFER + 10) • 

BINARY 

(RIM) 



FOCAL PROPER 
BUFFER AREA 
INITIAL DIALOGUE 



EXTENDED 
FUNCTIONS 



OUTPUT 

CONVERSION 

INPUT- 
OUTPUT 
ROUTINES 



FLOATING-POINT 
INTERPRETER 



LOADERS 
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Table D-2 
Detailed FOCAL Core Layout 



Miscellaneous 

Numbers 

Floating-Point Working Area 

Constants 

New Instruction Pointers 

Variables 

START 

Command/input 

Line Read Routine 

'DO 1 Routine 

Push -POP Routines 

'GOTO' and 'WRITE' and Misc. 

'IF', "SET", 'FOR' and Misc. 

'ASK', 'TYPE', 'MODIFY' 

"GETARG" - Recursive Routine 
"SPNOR", "TESTN", "POPJ" 
'RETRUN' 

"EVAL" - Recursive Routine 
OP NEXT - read operator 
ARGNXT - read operand 
ETERM - evaluate terminator 
FLOP - floating operations called 
ENUM - number processor 
EFUN - function processor 
ELPAR - left parens processor 
EFUN3 - function returns 
"DELETE" - Recursive Routine 
DOK - group delete 
DONE - garbage collection 
"FINDLN" - Normal Routine 
Find exact match or next larger 
'ERASE' command processor 
"GETC" - unpack text and trace 
"ENDLN", "PRNTLN" 
I/O Subroutines 
Interrupt Processor 
ERROR Processor 
"PACKC" - pack text 
Rubout routine 
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*3120 I/O Buffer 

Command Buffer 



Table D-2 (Cont) 
Text Buffer Begins 



T 

E 

X *4400 - Once-Only Code 

T SELF-START 

/ 

V 

A 

R CLEAR ALL FLAGS 

I TYPE MESSAGE 

A 

B 

L 

E 

S 

/• 

./ 

P 

U 

S 

H 

D *3600 ODT-JR (for X-FUN) 

O 

W *4600 ODT-JR (for dialogue) 

N 

L 

I 

S 

T 



Floating Point Routines 
(c.f., Section 4.5.2) 



*4600 


Extended Functions 


*5400 


I/O Controller 


*6400 


Interpreter 


*7600 


Binary Loader 




or 8-SYS LIB Bootstrap 




or Disk Monitor Bootstrap 


*7756 


Rim Loader 


End of Fiel 


Id Zero 


Field One 




Command 




Buffer 


Extended Text Storage 
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FOCAL CORE LAYOUT 



OOOO 





4= 




A 


B 


C 


D 




77 15 



N 



EXP 



3200 




PUSH A 

PUSH J 

PUSH F 
4600 

5400 



7777 



PAGE ZERO 



FOCAL 



■\ r~ 




FREE 




EXTENDED FUNCTIONS 



FLOATING-POINT PACKAGE 



LOADERS 






i 



J 



T 
J 



Figure D-l FOCAL Core Layout 
Dynamic Storage 
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APPENDIX E 
SYMBOL TABLE AND OTHER TABLESAlSTS 



E.l 



SYMBOL TABLE 



/FOCAL. 2HM 


PALL' V515 10-APR. 


•69 19I3R PAGE 121 






A 


2045 


9FXX 


4556 


CO*E!N 


3140 


DUBOIV 


7261 


ABSOL 


6751 


BMOVE 


1255 


C0ME n U 


3206 


DUBLAO 


5733 


ABSQL2 


6153 


BOTTOM 


0035 


CO^GO 


1163 


OUMLN2 


2012 


A3S0L3 


7375 


PUFBEG 


3217 


COMLST 


0774 


0V3 


7267 


ABSOLV 


5571 


BUFFER 


7470 


COMMFN 


0614 


E 


0042 


AC1H 


5*2*1 


BUFR 


("060 


CON1 


5037 


EBELL 


0512 


AC1L 


3042 


BUFRS 


1302 


CONTIN 


1147 


ECALL 


1601 


ACME'S 


6673 


BUFRSP 


3045 


CONTM 


0076 


ECCR 


2630 


ACTING 


F7P1 


RUFST 


5531 


CSTA" 


0225 


ECHO 


0454 


ACTION 


4 4 20 


C 


0047 


CTABS 


0353 


ECHOLS 


1624 


ACTIVE 


H037 


C100 


0006 


n 


0041 


EFOP 


0056 


ACTVP 


1143 


T140 


2554 


DATU M 


7102 


EFUN 


1743 


AO^i 


.10 61 


C144 


6140 


DATUMA 


7252 


EFUN2 


1754 


AOHH 


204? 


C200 


0123 


DCONP 


6303 


EFUN3 


2017 


aqo\e 


6673 


C2K0M 


0065 


DCOMT 


0471 


EFUN3J 


0136 


af 


4677 


C260 


0113 


DCOUMT 


6143 


ELPAR 


1763 


ALFl 


4760 


C3 


5346 


OOTJP 


0004 


END 


0134 


ALF2 


4763 


C5 


5342 


OEBGSW 


0026 


ENOFI 


6243 


ALF2 


4755 


C7 


5336 


DECK 


0040 


ENDLN 


4556 


ALG,\ 


6572 


C9 


5332 


OECK.P 


0107 


ENDT 


0135 


ALIGN 


6623 


CCR 


0077 


DECON 


5627 


ENUM 


1732 


ALIST 


1372 


COF 


7000 


DECO^'V 


5600 


EOUT 


0474 


ALISTP 


?072 


C0F1 


6211 


DECP 


5533 


EP7 


0052 


ALPHA 


1436 


CEX1 


6504 


OECR 


5521 


EPAR 


1710 


AMOUNT 


6722 


CEXP 


6503 


DELETE 


4565 


EPAR2 


1765 


ARCALG 


4 7 32 


CF 


4705 


DF 


4710 


ER5 


4555 


ARCRTN 


5024 


CFRS 


0133 


DGRP 


0425 


ERASE 


2204 


ARGNXT 


1723 


CFBSX 


3137 


0GRP1 


0441 


ERG 


2225 


ARTN 


50P0 


CHAR 


0066 


DIG 


5543 


ERL 


2222 


ASNFT 


6665 


CHAR* 


0026 


DIGIT 


5713 


ERR2 


2726 


ASK 


1202 


CHIN 


2155 


DIGITS 


0006 


ERR0R2 


4566 


ATEI 


4465 


CHKCNT 


1053 


DIV1 


5754 


ERRORS 


4566 


ATES 


4513 


CHKCON 


1052 


DJV2 


6757 


ERR0R4 


4566 


ATLIST 


157? 


CHRT 


6133 


DIVjnE 


7150 


ERR0R5 


2725 


ATSW 


5^056 


CIA 


7041 


OLISTP 


0100 


ERT 


2214 


AXIN 


ma 


CIF 


6202 


DMOO^'E 


7063 


ERV 


2217 


AXOUT 


0017 


CIF1 


6212 


OMPSw 


0100 


ERVX 


2237 


R 


0046 


CLA 


7200 


DMULT 


7004 


ESCA 


2532 


BACK 


5503 


CLCU 


7427 


DMULT4 


7036 


ETERM 


1647 


OASEP 


3616 


CLE 


0076 


DNOR" 


7335 


ETERM1 


1627 


PASES 


1540 


CLL 


7100 


DNUMPR 


5714 


ETERH2 


1655 


RASEX 


0617 


CMA 


7040 


DO 


0420 


ETERMN 


1644 


BDUMP 


0071 


CML 


7020 


DOK 


2111 


EVAL 


1613 


BEGIN 


4371 


CNTR 


0057 


DONE 


2127 


EX1 


0040 


BELLX 


0534 


CNTRLC 


0324 


DOONE 


0463 


EXASK 


2662 


BEND 


4442 


CNTRLX 


0331 


DOUBLE 


0X27 


EXCHCK 


1037 


BETl 


4771 


CNTRM 


0024 


DPCVPT 


6302 


EXCHE 


1072 


BET2 


4774 


CNTRT 


0032 


DPN 


6305 


EXCHEC 


2615 


BETA 


0010 


COOET 


0044 


OPT 


6145 


EXCO 


1007 


BETH 


4766 


COL 


1255 


OSAVE 


5640 


EXGON 


1215 


RF 


4702 


COMBOT 


0226 


DTABLE 


0070 


EXIT 


2646 


PFX 


4557 


COMBUF 


0132 


DTST 


5647 


EX|T1 


5034 
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EXIT? 53?2 

FXIT3 7363 

EXITJ ?661 

FX^on 2657 

EXP ?0"4 

FXPRIN ?60Z 

EXPRN 1060 

FXPRM 1003 

EXRQ 1011 

FXREAD 2605 

FXPE" 1054 

rxSxP 11<2 

EXTR 2313 

F C043 

rcor<T 1171 

rcrs 5220 

FCOUM "5535 

FENQ3 22^7 

FEXP tb?i 

TEXT ?B?a 

FGf2 6idll 

FG03 6827 

FG04 6034 

FG05 607*; 

FIG01 6221 

FIG04 6261 

FIN'CR 1065 

riMDLN "555 

FIKD^ 2246 

r I^F IN 1137 

FINKP 1133 

FINPUT /131 

FJNT 4427 

FJSk 0052 

FIX 6724 

FIXM 6753 

FL*C "044 

TLAD 6506 

FLAG1 5162 

FLAG? 4725 

FLARG 2030 

FLARGP C125 

FLPV 7107 

FLEX 6515 

FLGT 6467 

FLIMIT 1075 

FLINTP 6200 

FLIST1 "577 

FLIST2 '574 

FL M Y 6563 

FLOG 5040 

FLOP 1674 



FLOUT 5556 

FLOUTP 6000 

FLPT 6465 

FLSU 6505 

FLTONE 2405 

FLTXR 0014 

FLTXR2 0015 

FLTZER 2407 

FM12 6142 

FNEG 5163 

FNOR 7000 

FNPT 4554 

FNTAPF 0374 

FNTARL 21*5 

FOR 1041 

FO'JTPU 0130 

FPAC1 7474 

FPNT 6400 

FPRNT 5465 

FRST 3206 

FRSTX 3215 

FSIN 5205 

FXIT 0000 

G8L 4466 

GECALL 1460 

GENO 2334 

GERR 0340 

GET1 2330 

GET3 2345 

GETARG 1403 

GETC 4545 

GETLN 4554 

GETSGN 1045 

GETVAR 1407 

GEXIT 0352 

GFN01 1505 

GINC 0070 

GUST 1377 

GO 5021 

GOCR 0451 

GONE 0232 

GOTO 0603 

GRPTST 0744 

GS1 1437 

GS2 1461 

GS3 1441 

GS4 1454 

GSERCH 1426 

GTEM 0021 

GZERR 0362 

HJNBUF 0037 

HLT 7402 



HOLD 


0036 


MOLOT 


1276 


MOLOf 1 


1277 


HORO 


0045 


HREA n 


6321 


MREA02 


6324 


HSGO 


6364 


HSP 


0273 


HSPSW 


6375 


HSPX 


6361 


HSR 


0273 


MSWITC 


6343 


MTST 


6376 


133 


2414 


TAC 


7001 


IBAR 


0212 


IBUFI 


0106 


IBUFO 


0105 


IECALL 


1037 


IF 


1013 


IF1 


1035 


IF3 


1025 


IGNOR 


0217 


IGNORE 


0447 


ILtST 


0771 


IN 


5513 


INBUF 


0034 


INDEV 


0064 


INDRTT 


6463 


INFIX 


2401 


INITL 


3001 


INITL4 


3011 


INLIST 


3570 


I NOR" 


6307 


INPUT 


0756 


1NPUTX 


0271 


INSU" 


0036 


INTEGE 


0053 


INTRPM 


0201 


INTRPT 


2603 


I09UF 


3120 


I OF 


6002 


ION 


6001 


IOTX 


0110 


IPART 


1040 


!RET>' 


0227 


ITABLE 


6573 


ITER1 


7470 


JUMP 


6462 


K5 


5525 


KEY 


0321 


K£YX 


0447 



KINT 


2625 


KR8 


6036 


KSF 


6031 


KSF1 


6401 


KSF2 


6421 


KSF3 


6441 


KSF4 


6461 


LI 


5126 


L2 


5131 


L3 


5134 


L4 


5137 


L8A 


4550 


L8AX 


4553 


L8AY 


4552 


L8B 


4551 


LASTLN 


0025 


LASTOP 


0055 


LASTV 


0031 


LCON 


0371 


LG2E 


4713 


LI8RAR 


7503 


LINENO 


0067 


LIST3 


0077 


LIST6 


0072 


L1ST7 


0074 


LISTGO 


1370 


LISTL 


0023 


LISTP 


1165 


L0G2 


5157 


L0G5 


5142 


L0G6 


5145 


L0G7 


5150 


L0G8 


5153 


LOOKUP 


4571 


LOOP01 


6431 


LORO 


0046 


LP7 


7556 


LPRTST 


2035 


M100 


0101 


H10PT 


6147 


Mil 


0121 


M12 


2413 


M137 


2357 


M140 


2556 


M144 


6137 


M2 


0111 


M20 


0105 


M200 


0064 


M20M 


0056 


M240 


0114 


M240M 


3046 


M260 


1526 
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*27l 1527 

M4 6141 

«40 2356 

M40M 2057 

M4M 0061 

*5 0120 

K(,f H62 

*77 2103 

*BREAK 2602 

"C20P ^446 

^COM 1136 

MCR 51116 

MCRM JJ063 

M D 5526 

MDECK 0043 

M EQ 1135 

*F C602 

"FLT 0117 

M IF 726k) 

M INE 5662 

MJNSKI F05l 

M INUS2 7153 

mjnusa zii2 

MINUSE 63*1 

MJNUS2 5663 

MLISTP 0077 

MOO 5215 

MQOIFY 1256 

HOVE15 1232 

MOVE20 1243 

MP1 7254 

MP11 0575 

MP177 0445 

MP2 7256 

MP3 7255 

MP4 7200 

MP5 7253 

«P6 7210 

MPER 0115 

MPLUS 5664 

mq 9035 

MQA 7501 

MPO 0444 

MSPACE 5665 

MULDIV 7101 

MULT 6566 

MULT10 5667 

MULT2 5715 

MULTY 4752 

MX 0533 

M2ER0 0067 

NAGSW 0065 



NEGP 4724 

NEWU 0042 

NEXT0 1146 

NEXTU 1145 

NL1 7301 

NL2 7326 

NL2000 7332 

U3777 7350 

ML4000 7330 

NL5777 7352 

NL7775 7346 

ML7776 7344 

MOECMO 0465 

VOP 7000 

NORF 6513 

NORM 6567 

NORMT 7147 

NOUSRS 0073 

NOX 6675 

N0X1 6711 

M0X2 6704 

01 4370 

02 4561 

04 4412 

05 4563 

06 4564 
08UFP! 0104 
OBUFI 0103 
OBUFO 0102 
OFFOFC 4422 
0M12 5530 
ONDECK 4421 
ONE 4716 
OOUT 4544 
OP 3115 
OPM I MS 6565 
OPNEXT 1622 
OPTAP-L 1731 
OPTR0 2663 
OPTRJ 2665 
OPTRO 2664 
OPUT 5532 
OTHER 0215 
OUT 2465 
OUTA 5536 
OUTCR 2476 
OUTOEV 0063 
OUTDG 6154 
OUTL 1354 
OUTX 2475 
OVERl 0043 
0VER2 0047 



P 0000 

P10 0053 

P100 0342 

P100P 0046 

P13 0005 

P14 7706 

P140 0532 

P17 0107 

P177 0106 

P17M 0054 

P2 4566 

P20 0055 

P200S» 0373 

P27 6750 

P277 0110 

P2M 7707 

P3 2034 

P337 0075 

P37 0062 

P377 2553 

P4 0060 

P40 2552 

P400P 0124 

P43 6310 

P6777 0050 

P7 4565 

P7000 0047 

P7576 0764 

P7600 0104 

P77 0122 

P7700 0101 

P774P 0372 

P775!" 0763 

P7757 0051 

P77M 0045 

PAl 2524 

PAC8UF 2502 

PACKC 4546 

PACKET 0027 

PACX 2530 

p ALG 5261 

PARITY 0302 

PARTES 2047 

PC 0022 

PCI 0614 

PCHECK 5245 

PCHK 0510 

PCK1 2535 

PCM 0101 

P02 0534 

PQ3 0554 

POLXR 0013 



POP 4562 

P0P5 4570 

P0P5X 4463 

P0P6I 4567 

P£Q 6135 

PER 0102 

PI 5312 

PI2 5036 

PIOT 5316 

PLCE 5536 

PIS 6026 

PM2000 1144 

PNTR 0031 

POPA 1413 

POPF 4544 

POPJ 5541 

PPTEN 4144 

PRINTC 4551 

PRINTO 7550 

PRNT 2442 

PRNT2 3114 

PRNT8 7527 

PRNTI 6132 

PRNTLN 4553 

PROC 0611 

PROCES «610 

PSIN 0165 

PT1 0030 

PTCH 0126 

PTEN 6275 

PTEST 1457 

PUSHA 4542 

PUSHF 4543 

PUSHJ 4540 

R6 5441 

RAL 7004 

RANO 1530 

RAR 7010 

RAR1 6571 

RAR2 6572 

RDIV 0152 

READC 4552 

RECOVR 2740 

RECOVX 2761 

REMAIN 5712 

REPT 6146 

RESOL 6752 

RES0L3 7376 

RES0L5 6304 

RESOLV 7173 

RESTAR 0003 

RESTOR 0304 
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RESTP 6377 

RESU M E 2623 

PET 9452 

RETRN 1563 

RETURN 5536 

REVIT 7146 

RFC 6014 

RMF 6244 

RNH2 5527 

R00TGO 7461 

POT 2557 

ROUNr> 6151 

RRO 6012 

RSF 6011 

RTU 7006 

RTL6 4557 

RTR 7012 

RUR1 3004 

RUB2 3242 

RUB3 303i5 

RUB4 3037 

RUP5 3041 

RUBJT 2555 

SAC 0033 

SAOR 615«5 

SAVAC 261*0 

SAVE 3751 

SAVUK 2601 

S9AR 1302 

SCHAR 1273 

SCONT 127«J 

SCOU*'T 5534 

SET 1041 

SETW 0527 

SETW! 0023 

SE* 134rf 

SEXC 0740 

SfOUNO 1306 

SCOT 1312 

SIGN 7124 

SIGNF 0050 

SILENT 0343 

SIM 2662 

SING P471 

SINGLE 2636 

SKP 7418 

SLK 0034 

SMA 7500 

SMIN 6136 

SMP 6101 

SMSP 6134 

SNA 7450 



10«A o H-69 

SNL 7420 

SORTO 1314 

SORTC 4550 

SORTCN 0054 

SORTJ 4547 

SPA 7510 

SPECIA 6777 

SPL 7000 

SPLAT 3051 

SPN'O c 4560 

SQCOV1 7467 

SOFNn 7465 

SRFT'' 0261 

SRNLPT 1363 

START ?177 

STARTL 5064 

STARTV 0B60 

SUPS 1517 

SZA 744«; 

SiL 7430 

T 0000 

Tl 0032 

Tl? 4426 

T2 0071 

T2H 2624 

T3 0033 

TA"L F 6464 

TAG1 6723 

TASK 1204 

TASK* 1253 

TCF 6042 

TCPLF 1251 

TCPLF2 1246 

TD'JMP 3052 

TELSW 0016 

TELS'^l i*275 

TELSW2 0276 

TELSW3 !*277 

TELSM4 0300 

TELSW5 "301 

TE* 5156 

T£MP 4726 

TEMP" 0025 

TEMPT 3027 

TEMPX 0030 

TEN 6271 

TEMPT 6152 

TERMS 1770 

TEST? 6736 

TEST4 7366 

TESTA 0322 

TESTC 4564 
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TEST 4561 

T£XJT 5-744 

TEXT* 1610 

TEXT" ?075 

TEXTF 0017 

TEXTPfl 0074 

TGO 54910 

THIR 7257 

THISLN 0023 

TH1S°P 0024 

TJNiTR 1241 

TLIST 1400 

TLIST2 1404 

TLIST3 2377 

TLS 6046 

Tpr 6044 

TQUOT 1232 

TRAD 6573 

TRri H63 

TRC2 1164 

TSf 6041 

TSF1 6411 

TSF2 6431 

TSF3 6491 

TSF4 6471 

TSTG^P 4563 

TSTl^R 4562 

TTY ("322 

TTYpr 0347 

Two 4721 

TWCP1 5306 

TYPE 12E3 

Type? 1226 

UNSE'K ^633 

UPAR 0066 

USER'O "1041 

USEHTS 1210 

UTF 2276 

UT-3 2375 

UTRA 2274 

UTX 2316 

VAL !"032 

WALL 0664 

WORDS 00^3 

wRIT r 0635 

>ITEST2 F653 

WTESTG 7667 

wx 0673 

X 5322 

XI 5035 
X2 4675 
XA 2656 



XABS 2014 

XACTIO !"643 

XAOC 1343 

XB 2655 

XBUF 0516 

XCOM 0622 

XCT ?020 

XCTIN P062 

XDECK 0600 

XDELET 2062 

XOYS 1142 

XENOLN 2360 

XF 4560 

XFINP 2242 

XGETLN ?302 

XI33 2666 

XIN 6306 

XINPUT 5666 

XINT 1160 

XKEY 3412 

XOUTL 2676 

XPOPJ 1565 

XPR 1062 

XPR2 1064 

XPRNT 2425 

XPRNTI 1013 

XPUSHA 0477 

XPUSMJ 0521 

XR10 0010 

XR11 0011 

XR12 F012 

XR13 0013 

XRAN 1553 

XRAR2 7365 

XRSTAR 0312 

XRT 0011 

XRT2 0012 

XRTL6 0413 

XSGN 2010 

XSORTC 0721 

XSPNOR 1517 

XSQ2 4676 

XSOR 5326 

XSQRT 7400 

XT3 0717 

XTOUMP 0535 

XTESTC 0700 

XTESTN 1533 

XTTX 0727 

XTTY 0710 

XXTTY 0742 

XYZ 2451 
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ERRORS DETECTED! 
RUN-TIMEJ 32 SECONDS 
6K CORE USED 
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E.2 OTHER TABLES AND LISTS 



/LIST OF FUNCTION ADDRESSES, (NAMES ARE IN "FnTaBL") 

3373 F^TABF=, 

^373 2014 XABS /ABS -ABSOLUTE VALUE 

4374 2010 XSGN /SGN -SIGN PART 

-1375 1161 XINT / ITR -INTEGER PART 

? 3 7 6 4, XOYS /OIS -DISPLAY AND INTENSIFY 

/J377 1553 XRAN /RAN -RANDOM NUMBER 

34*0 1344 XAOC /ADC -rEaD ANALOG TO DIGITAL CONVERTER 

34 Jl 5030 ARTN /ATN 

J432 4620 FEXp /£XP -EXPONENTIAL FUNCTIONS 

1433 3040 FLOG /LOG 

^4 34 5235 FSIN /SIN 'TRIG FUNCTIONS 

3435 52550 FC oS /C qS 

3436 7400 XSQRT /SOT -SQUARE ROOT 

55427 2725 ERRORS /NEW -USER DEFINED FUNCTIONS 

3410 2725 ERR0R5 /COM 

5411 2725 ERRORS /X 

'Mi 9 ^030 XRT L 6, /ROTATE AC LEFT SIX - "RTL6" 

3413 7106 CLL RTL 

3414 7006 RTL 

3415 7006 RTL 

3416 5612 JMP 1 XRTL& 



/E.NGLISH_FRENCH 

0775 COMLST= f /COMMAND'dECOD ING LIST 

0775 0323 323 /SeT - ORG.NIZe 

0776 0306 306 /FOR - QUAND 

0777 0311 311 /IF - SI 

1000 0304 304 /DO - FAIZ 

1001 0307 307 /GOTO - VA 

10212 0303 303 / c QMMeNT- qO^MENTe 

1033 0301 301 /ASK - DEMANDE 

IfodA 0324 324 /TYPE - TAPE 

1.0*5 0314 314 /LIBRARY- ENTREPOSE 

<£%£. 3 5 3^5 /ERASE - BlFFE 

76SJI7 0327 3?7 /KRJTE - INSCRIS 

l£10 0315 315 /MODIFY — MODIFIE 

1611 0321 321 /QUIT - ARRETE 

1212 0322 322 /RETURN - RETOURNE 

1013 0212 212 /(ASTERISK)sEXPANDABLE COMMAND 
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1164 c 0M G 0s « /cOMMANq ROUTINE; A n R E SS E s 

1164 1B42 SET 

1165 U'42 FOR 

1166 1014 IF 

1167 0417 DO 

1170 0634 GOTO /(REFERENCED) 

1171 0615 COMMENT 

1172 1233 ASK 

1173 1204 TYPE 

1174 7503 LIBRARY 

1175 2204 ERASE 

1176 0636 WRITE 

1177 1257 MODIFY 

1200 0177 START /RETURN To COMMAND MODE VIA 'QUIT' 

1271 1563 RETRN 

1202 6361 HSPX /ACTIVATE THE HIGH SPEED READER 



2165 F N TAB, 

2165 2533 

216t> 2650 

2167 2636 

2170 2565 

2171 2633 

2172 2517 

2173 2572 

2174 2624 

2175 2625 

2176 2654 2654 /SIN /LIST OF CODED FUNCTION NAMES 

2177 2575 
2230 2702 

2201 2631 

2202 2567 

2203 0330 



2533 


/ABS 


2650 


/SGN 


2636 


/ITR 


2565 


/OJS 


2630 


/RAN 


2517 


/ADC 


2572 


/ATN 


2624 


/EXP 


2625 


/LOG 


2654 


/SIN 


2575 


/COS 


2702 


/SQT 


2631 


/NEW 


2567 


/COM 


0330 


/x 
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/control t able 

3 354 2,451 IGNORE 

0355 CTABS=, 

2355 2456 ECHO 

3356 3333 CNTRLX 

0357 0326 CNTRLC 

0360 0333 CNTRLX 

0361 0333 CNTRLX 

0362 0333 CNTRLX 

0363 0456 ECHO 

0364 0333 CNTRLX 

0365 0333 CNTRLX 

0366 0467 NOECHO 

0367 0333 CNTRLX 

0370 0467 NOECHO 

0371 0453 GOCR 

0372 0333 CNTRLX 

0373 3333 CNTRLX 
3,74 333 CNTRLX 

0375 0333 CNTRLX 

0376 0345 SILENT 

0377 0333 CNTRLX 
3430 0351 TTYpE 

0431 0333 CNTRLX 

0432 3333 CNTRLX 

0433 3333 CNTRLX 

0434 3456 ECHO 

4 35 333 CNTRLX 

0436 0333 CNTRLX 

0437 0451 IGNORE 

0410 0451 IGNORE 

0411 0451 IGNORE 

0412 0456 ECHO 

0413 0453 GOCR 



/L,T, 



BELL 



- LF, 

-FF, 
«C,R t 



/tA-HOME 

/tB 

/C-ENO OF MESSAGE 

/O 

/E 

/F 

/G 

/H 

/I 

/J 

/K 

/L 

/M 

/N 

/0 

/P 

/Q 

/R-TAPE 

/S- (7000) - FOR DEBUGGING 

/T-NOT TAPE 

/U 

/V 

/W «»E f O f MEDIA 

/X-ERASE 

/Y 

/E 

/C 

/\ 

/] 

/UPAR - 

/LF-PTARsGQRO 
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(WORD (10 DIGIT) OVERLAY FOR FOCAL. 2ZK PAL10 Vj.33 14-MAR-69 15:54 

/4*0R0 (10 DIGIT) OVERLAY FOR FOCAL, ?2K 

0024 W0RUS=4 

2)012 DI(ilTS=12 

3052 *FlSt~ 

3052 ^000 

0(?70 »GlNC 

0K' 70 00f6 '/JORQS + 2 

0116 »MFLT 

13116 7774 -WORDS 

321G *FHST+2 

3210 0355 TEXT eC-4wORD6> 

3211 6427 

3212 1722 

3213 043P 

5526 *MD 

5526 7766 -DIGITS /EXTENDED LENGTH OF OUTPUT FORMAT 

5527 0013 DIGITS+1/RND2 

5310 *T w pI + 2 
5310 3755 3755 /CORRECT CONSTANTS 

5314 »PU2 
5314 3755 3755 

5320 *pl0T+2 
5320 3755 3755 

6143 »QCOUNT 
6143 7765 -OIGITS-1 

6277 *pTEN+2 
6 2 77 3 X 46 3l 46 /CONSTANT ONE 

6422 *f r p N T + 2 

6422 7410 ' SKP /DO NOT CLEAR OVERFLOW WORDS 

6540 *2ERO*20 

6540 7000 NOP 

6736 *TEST2 

6736 0043 43 

7036 # QMULT4 
7036 3275 OCA 0ATUMw5 

7105 *MUL0lV+4 
7135 7000 NOP 

7072 *QMDONE+7 
7072 7000 NOP 
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4W0RD (10 DIGIT) OVERLAY F'OK FOCAL. Z2K PAL10 Vl33 14-MAR-69 15s54 

7260 *MiF 

7 2 6 77 3c, -43 

7271 *0V3 + 2 

7271 1043 TAD 0VER1 

7272 1047 TAD 0VER2 

7273 3253 OCA MP5 

7274 7004 RAL 

727b 1042 TAO ACll /COMBINE ONE POSITION AND 

7276 1046 TAO LORD 

7277 3236 OCA MP? /SAVE RESULT 
7330 7034 RAL 

7321 104? TAD HQRD /ADD OVERFLOW 

7322 1041 TAD AC1H 

73713 742-2 SNL /SKIP IF OVERFLOW 

7324 5312 J*P i*6 

73?!5 3045 OCA HORO /UPDATE FLAC 

73216 1?53 TAD MP5 

7337 3047 DCA 0VER2 

7310 1256 TAD MP2 

7311 3046 OCA LORD 

7312 7200 OLA /CLEAR ACCUMULATOR 

7313 1254 TAD MP1 /SAVE OVERFLOW BITS CIRCULARLY 

7314 70134 RAL 

7315 3254 DCA Mpl 

7316 120C TAD Mp 4 

7317 7004 RAL 

7320 3200 DCA MP4 

7321 1335 TAD DNORM 



NOPUNCH 
3001 FIELD 1 

XLIST 
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/8K OVERLAY FDR FOCAL, Z2K PAL10 V133 14-MAR-69 15:57 PAGE 1 

/3K OVERLAY FOR FOCAL, i?K 

/TEXT IS IN FIELD 1. VARIABLES AND POL ARE IN FIELD 

/ S V E STBKj ( D )-7577;200 
/JSAVE FCLOJ0-33775 

/.Save nulh:i0i0ZI}10113 
/.save namr!10102-<8) ;iiaii3 



62-51 
c"0 i g 
2020 
?!Z 30 



CDF=6201 
T = x 
P = 
FIELD 



2222 

2031 

2360 

3131 

2132 

2134 

2166 
2167 
2170 
2171 
2172 
2173 
2174 



3120 
2022 
3020 
3031 
3226 
2060 
2126 
2131 
3010 
2132 
2120 
0134 
2126 
2166 
2565 
6160 
6173 
7557 
7564 
2572 
2120 



LINE0=100 
*PC 



*lastv 

*BuF R 

•comsuf 
«cfrs 

• ENDT 

• 166 

DpC, 

DTHIS, 

DPTl, 

DXRT, 

DAXjN, 

DAX UT' 
OLIB, 



COHEOUT 
LIME1 

10 

LINE0 

LINE1 

ROT + 5 

THISD 

PTlO 

XRTD 

AXIND 

ax utD 

0LIB8 



/PC 

/THISLN 

/PT1 

/(TAD I XRT) 

/(OCA I AXIM) 

/(yAD I A XoUT ) 

/LINK FOR gK L-COMMAND 



E-ll 



/8k OVERLAY FDK FOCAL. 2?K 



PAL10 V133 



14-MAR-69 



15:57 



/////////////////////////////////////////// 



2030 
3021 

3033 
3034 

2026 

3027 



2)130 

25131 
3132 
0103 
3134 
21135 
2136 
3137 
3110 
3111 
3112 

2113 
3114 
3115 
3116 
3117 
3120 
3121 
3122 
3123 
3124 
3125 



'3001 

3*,00 
0000 

3000 

3000 

3000 

7>000 

5051 

3060 

0126 

3*00 
3000 
3000 
3355 
7013 
4006 
1703 
0114 
4000 
6171 
6671 
7715 

6201 
1007 
3406 
6202 
5525 
6002 
1406 
3007 
6203 
5525 
7600 
0126 



FIELD 1 

*0t500 



*line 




PI 




5051 
BUFR 
LINE1 








/ZERO PC 
/TOUMP DAjA 



TEXT 0C-8K FOCAL * 



STBK, 



DLIB8, 



RLlBi 

LlNEls, 



6171 
6671 
7715 

COF 
TAD 
OCA 
CIF 
JMP 
IOF 
TAD 
DCA 



/START 8K USER FILE AT THIS ADDRESS 



RLI8 



CIF CDF P 
JMP I ,+1 
7600 /RETURN To DISK MONITOR, 



3000 

0000 

0030 0000 



FIELD 
#0000 



NOPljNCH 
XLlST 



E-12 



APPENDIX F 
FOCAL SYNTAX 



Table F-T 
Syntax in Backus Normal Form 



< immediate command > : : = <program statement >C.R. 
<indirect command >: : = <line #>< prog ram statement > C . R . 

<line * > : : = <group no. > • <line no. > 

<group no. >: : = 1-31 

<lineno.>: : -01-99 | 1-9 

< program statement > : : = <command > | 

<command > <space > <arguments > | <command string > | 

< prog ram statement >; < program statement > 
<command > : : = WRITE | DO | ERASE | GO | GOTO 
<arguments >: : = ALL | <line * > | <group no. > 

<command string > : : = <type statement > | < Library statement > | 

<Ask statement > | < If statement > 

< Modify statement > | <Set statement > 

<For statement > | QUIT| RETURN | COMMENT | CONTINUE 

<Set statement > : : =» SET <space > <variable > = <expression > 

<For statement > : : = FOR <space > <variable > = <expression >, 

<expression >, <expression >; <program statement > | 

FOR <space > <variable > = <expression >, <expression >; 

< prog ram statement > 

<If statement > : : = IF <space > <subscript > <line * >; | 

IF <space > <subscript Xline # >, <IIne # >; ] 
IF <space > <subscript > <line # >, <line # >, <llne # > 
<Ask statement > : : = ASK <space > <Ask arguments > 
<Ask arguments > : : = <operand >, <Ask arguments >| 

! <Ask arguments > | # <Ask arguments > | % <format code >, <Ask arguments >| 

" <character string > " <Ask arguments > | <null > | 

<operand > <space > | $ 
<format code > : : = <line * > | <null > | <group no. > 
< Library statement > : : = 

LIBRARY <space > < Library Command > 

<space><file NAME > 
< Library Command >: : =CALL| SAVE| DELETE | LIST 

F-l 



<character string > : : = <null > J <character > <characrer string > 

<character>: : =a-z | <digit>| <specia I symbols > 

<digit>: : = 1 -9 | 

<terminator > : : = <space > j , | ; |C.R. 

<not space > : : = <null > | <character > 

<special symbols > : : - & | ' | : | @ 

<leader-trailer>: : =@ | [200] | <null > 

<File name > : : = <character string > 

<data list>: : = <variable > j <variable>, <data list > 

<Type statement > : : = TYPE <space > <Type arguments > 

<Type Arguments > : : = <Ask arguments > | <expression >| 

<Type arguments >, <Type arguments > 

<Modify statement > : : = MODIFY <space > <line # > 

This command is then followed by keyboard input 

characters defined as <search character > 

plus 

<null > | <character string >| <control character >| 

<character string > <control characters > 

<control charcter>: : = [bell] <search character >j 
[form] | [line-feed] | C.R. | 

[tC] | - | [rub-out] 

<VarIable > : : = <letter > | < letter Xcharacter >| 

<Variable > <subscript > 
<Subscript > : : = <left paren > <expression > <right paren > 

<operand > : : =<variable > | <constant >| <subscript > | <function > 

<left paren >: : = < | ( | [ 
<right paren >:: = >) j ] 
<expression > : : = <unary > <operand > | <operand > | 

<expression > <operator > <expression > 

<unary > : : = +| - 

<operator>: := t |* | /| + | - 

<Function > : : = F <function code > <subscript > 

<function code>: : = SIN | COS | LOG | ATN | EXP 
SQT j ADC j DIS j ITR | 
ABS | SGN j RAN | NEW | 

NOTE 
Spaces are ignored except when required. 
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Table F-2 
FOCAL Commands In French 



Commandments Francois Pour Le Calculateur Electronique "IGOR" 





English 


French 


Letter 


1. 


SET 


ORGANIZE 


O 


2. 


FOR 


QUAND 


Q 


3. 


IF 


SI 


S 


4. 


DO 


FAIS 


F 


5. 


GOTO 


VA 


V 


6. 


COMMENT 


COMMENTE 


C 


7. 


ASK 


DEMANDE 


D 


8. 


TYPE 


TAPE 


T 


9. 


LIBRARY 


ENTREPOSE 


E 


10. 


ERASE 


BIFFE 


B 


11. 


WRITE 


INSCRIS 


I 


12. 


MODIFY 


MODIFIE 


M 


13. 


QUIT 


ARRETE 


A 


14. 


RETURN 


RETOURNE 


R 



CE N'EST PAS PARFAIT 

MAIS "IGOR" EST INTELLIGENT 

ILCOMPRENDRA 



NOTE 
"IGOR" refers to PDP-8/1 
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APPENDIX G 
ILLUSTRATIONS 



EVAL-I 



> 



c 



EVAL 



> 




LASTOP 
= 



OPNEXT-2 



> 



c 



OPNEXT 



\ CHAR J 




( 


ETERM1 




c 


ENUM 




c_ 


EFUN 



<PUSH \ 
GETVAR > 

(PT1) => VAR / 



/ TEST \ 

\ F0R ) 

\ TERMINATOR / 



NO 



YES 



ERROR 



4 ^ ( ETERMN ) 



Figure G-l (Sheer 1) Arithmetic Evaluation 



G-l 



ETERM1 



( ETERMN )- 



ETERM 



ETERM2 



FLARG = ZERO 
PJZt => FLARG 




( 



POPA 

LASTOP 



ETERM2 





EXECUTE LAST 
OPERATION 



ARGNXT 



Z> 



ELPAR 



ERROR 4 




EPAR 



POPF 
FLAC 



} 




POPJ 



) 



RETURN 



Figure G-l (Sheet 2) Arithmetic Evaluation 
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ARGNXT 



<PUSHF \ 
(PT1) ) 



LASJOP 
THISOP 



( 




TEST 1st CHAR 
OF ARG 



( ELPAR 



( ENUM y* — • 



EFUN 



OPNEXT-2 



EPAR2 



D 



ENUM 



SET (PTt) 
FLARG 



SET INSUB 

TO USE 
GETC 




OPNEXT 




Analysis of Operands 



Analysis of Sub- Expressions and Constants 



Figure G-l (Sheet 3) Arithmetic Evaluation 
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c 
c 



EFUN 



ASSEMBLE 
CODE NAME 



EFUN2 



> 




ERR0R4 






ARG => FLARG 

(PT1) => FLARG 

CHAR = RPAR, 

COMMA OR C. R 



POPA 
/ GET BACK AND 
\ BRANCH ON 
UNCTION CODE, 



FNTABF 



LIST OF 
COOED NAMES 



LIST OF 

FUNCTION 

ADDRESSES 



TYPICAL FUNCTION 



COMPUTE 
THE 

FUNCTION 




LEAVE 

ARGUMENT 

IN FLAG 



VIA 
EFUN3I 



EFUN3 



FUNCTION 
RETURN 



NORMALIZE 
AND SAVE 
IN FLARG 



c 




OPNEXT 



Figure G-l (Sheet 4) Arithmetic Evaluation (Analysis of Functions) 
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o 

I 




INPUTX 



IGNOR+4 



F.F. 

BELL 

L.F. 

C.R. 



f 


IN LIST 


^ 


c 


I BAR 


) 




c 


IGNOR + 4 


) 




c 


IGNOR+4 


) 




c 


IGNOR 


) 




c^~ 


IRETN 


) 



D 



ON LINE 
COMMAND 




SRETN 



> 



YES 



DELETE OLD 

LINE AND SET 

POINTERS 



ERR0R3 



SAVE 

THE TEXT OF 

THE LINE 



c 



START 



3 



Figure G-2 Command/input 




PROC 



MANUAL RESTART VIA LOC 200 



r 200 



X 



BEGIN 



POPJ 



) 



J 



( RECOVR + 1 ) 




( START ) 




Figure G-3 Main Control and Transfer 
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Figure G-4 DO Command 



G-7 




( TQUOT ) 




REMEMBER 

WHICH COMMAND 

THIS IS 



ALIST 
% 



SP 



C.R. 



ATLIST 



r 


TINTR 


) 




c 


TQUOT 


) 




c 


TCRLF 


) 




c 


TCRLF2 


) 




c 


TDUMP 


) 




c 


TASK4 






c 


TASK4 


) 




c 


PROCESS 


) 




c_ 


PC1 


) 



( TCRLF y~ 



TYPE 
CR + LF 



TCRLF2 



TYPE 

CR 
ONLY 



-"— +£ TASK4 ~) 



Figure G-5 (Sheet 1) Input/Output Commands 
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<PUSHJ \ 

GETARG ) 



INSUB 1 

TO INDICATE USE 

OF READC 





HD 



( TINTR ) 



READ AND 

SAVE FORMAT 

DATA 




( TASK4 ) 




Figure G-5 (Sheet 2) Input/Output Commands 
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I 



( 


SET 


) 


' 


1 


( 




> 







< PUSHJ \ 

GETARG I 



READ TO 
" = "SIGN 



(PUSHJ \ 



INITIALIZE 

THE 
VARIABLE 



c 






FLISTI 




c 


FINCR 


) 




c 


PROCESS 


) 




c^ 


PC1 


) 



TLIST 



FINCR 



> 



READ 
THE LIMIT 



D-i 



SAVE 
VARIABLE 
ADDRESS 



< PUSHJ \ 



C 




D 



SAVE THE 
INCREMENT 




P 
EVA 



USHJ \ 

7AL-1 ) 



SAVE LIMIT 

AND 

TEXT POINTERS 



< PUSHJ \ 
PROCESS / 



FLIST2 



( FLIMIT y* ( FLIMIT ) 



( FINFIN ) 

( ERROR5 ) 



c 



FINFIN 



D 



SET THE 

INCREMENT 

TO +1 




TLIST 



Figure G-6 Iteration Control 



( '" ) 



( 




) 




( '" ) 



ENABLE 
- + 





GOTO J 



TLIST 



ILIST 



r c 



CR 



3 



( PROCESS ) 

C PC1 ") 



Figure G-7 CondiHonal Branch Command 



G-ll 



Q 



t-o 



(" MODIFY y - 




REAO A 
LINE NUMBER 



ERR0R2 



NO 






C scont y 



( SCONT-H y 



( SCHAR V 
? 




YES 



.«♦- 



SET ALL 
POINTERS 
FOR INPUT 




YES 



READ KEYBOARD 



JASR 33 J 



SAVE SEARCH 
CHARACTER 





LISTGO 



LIST3 
|2I5| ( SRETN 




(l??)( (_ 



SGOT 



( SBAR y 



Q SFOUND y~ 



^ sgot y 



RESTART 

INPUT 
POINTERS 




-♦<> 



c 





LIST6 



FORM-FEED 



BELL 



SRNLST 
( SBAR ) 

CZZD 

( SCONT ) 



SFOU 



ND_J 



LINE-FEED ( SCONT+1 ) 



CARRIAGE-RETURN ( SRETN ) 

SEARCH CHARACTER Q SGOT ) 



Figure G-8 Character Editing 



c 



ERASE 



C ERV > 




RESET TEXT 
POINTS 



RESET 

VARIABLE 

LIST 



( "■" > 



{ ERRORS ) 









BASE FOR 
THE BIG NOR 






1 


' 




NOR ALL 
TEXT LINES 


GARBAGE COLLECT 


ION 

1 


1 


[ DELETE ") 



Figure G-9 (Sheer 1) ERASE and Delete 
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C DELETE > 



ENTRY 



ERL 




MEASURE LENGTH 
OF THE LINE 



REMOVE THE 
POINTERS 



SEARCH STRING 

AND 

CORRECT POINTERS 



( DONE ^ 



c 



ERG 



ADO ONE 




FORCE A 

RETURN TO 

'START' 




Figure G-9 (Sheet 2) ERASE and Delete 
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Q INTRPT y 



( TINT V 



C EXIT > 



TINT 



RECOVF 



( ERROR2 J 

NO J 




SAVE 
ERROR NUMBER 
TURN ON TELSW 



YES- IGNORE 



RESET 

MACH INE 

CONDITIONS 



EXECUTE 

HIGH SPEED 

READER 



CONTINUE 



RESET ALL 
POINTERS 



TLS 




Figure G-10 (Sheet 1) Interrupt- Handler 



G-15 



XOUTL 



> 



EXIT XOUTL 



ENTRY 



NOR 
POINTERS 



SAVE DATA 



ION 




NO 


TYPE CHARACTER 

AND 
START PROGRESS 




EXIT XOUTL 


' 


* 









XI 33 



ENTRY 



SAVE INPUT 



CLEAN 



AC= INPUT 



EXIT XI33 




( ERRORX^ ) 



( ERRX ) 



MASK CALLING 
ADDRESS 



PREPARE ERROR 



c 



RECOVR 



> 



WAIT FOR 

OUTPUT 

TO FINISH 



Figure G-10 (Sheet 2) Infrerrupt Handler 



G-16 



o 



( GETflRG ) •/ TESTC \ » ( ERRORS ) C 



( GETVAR V 



GS 1 



LEGAL 



SAVE TWO 
LETTERS 




<: 



SAVE NAME 




L 



RESTORE NAME 




SAVE THE 
SUBSCRIPT AND 
START SEARCH 



GS3 



GS1 




YES 



-Q GFNOI ) 



ADD THE 
VARIABLE NAME 
AND SUBSCRIPT 



-c 



LOOK AT NEXT 



( gfndi y- 




GEXIT 







YES 


^ GROUP J> 
\ P ^-^ 


1' 




NAGSW 


[NO 












EXIT 



INITIALIZE 
TO ZERO 



CHECK FOR 
END OF 
STORAGE 



OK 



POPJ 



c 



ERR0R3 



Figure G-ll Variable Look-up and Enter 



o 

i 



C mRfl y 




200 

1 


-276 


< RANGE > 


300 -376 


SET CHAR 




SET CHAR 













( UTQ > 





< UTX ) 



YES 



EXIT UTRA 





N0 >r 

LEFT ^- 



GET3 



HALF 



READ 
RIGHT HALF 



READ NEXT 

AND GET 
LEFT HALF 




EXIT GET1 




Figure G-12 Character Unpacking 



"FINDLN ' 



FIND A 
PARTICULAR 
LINE FOR A 

GIVEN 

LINENUMBER 

OR GROUP 



C FINDN \«- 



( XFIND ") 



ENTRY 



LASTLN=CFRS 



CHANGE 
DATA FIELD 



AC =CFRS 



-C~ FINDN ~\ 



FINDLN- 
ROUTINE 



THISLN = AC 



XRT2 = THISLN 




«/" ERR0R2 ~) 



YES 



YES 



YES V 



INCR EXIT 



SET UP 

OUTPUT 

POINTERS 



EXIT 



Figure G-13 "FINDLN" Routine 
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ADVANCED FOCAL 
TECHNICAL SPECIFICATIONS 
DEC-08-AJBB-DL 



READER'S COMMENTS 



Digital Equipment Corporation maintains a continuous effort to improve the quality and usefulness of its 
publications. To do this effectively we need user feedback - - your critical evaluation of this manual. 

Please comment on this manual's completeness, accuracy, organization, usability, and readability. 



Did you find errors in this manual'.' Please explain, giving page numbers. 



How can this manual be improved?. 



DEC also strives to keep its customers informed on current DEC software and publications Thus the 
following periodically distributed publications are available upon request. Please check the publication(s) 
desired. ' 



D Digital Software News for 
the PDP-8 Family , contains 
current information on soft- 
ware problems, programming 
notes, new and revised soft- 
ware and manuals. 



Q PDP-8/I Software Manual 
Update , contains addenda/ 
errata sheets for updating 
software manuals. 



Q PDP-8/I User's Bookshelf. 
contains a bibliography of 
current and forthcoming 
software manuals. 
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State . 
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